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UM SIMULADOR DE VOO {2} 

Ligue as turbinas do aviao e levante voo. Mas nao 
deixe de apertar os cintos, porque... o piloto auto- 
m^tico e muito louco. Este artigo continua a ex- 
plorar as possibilidadesde urn voo simulado . 601 
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FUNgdES SOB EIMCOMENDA 

As fungoes sob encomenda faciiitam enormemente 
a resolucSo de problemas complexes, como cal- 
cular juros compostos, transformar letras maius- 
culas em minusculas e encontrar o cubo de um 
numero 608 



UM EDITOR DE TEXTO (3» 

A procura incessante da palavra certa tern sido uma 
verdadeira obsessao para grandes escritores. Este 
artigo ensina a fazer isso com a prosaica ajuda do 
computador. E mais: impressao, carta padrao, ajus- 
tes k direita e h esquerda, formatacao,etc . 614 




PLANODAOBRA 

"INPUT" e uma obra editada em fascicules semanais, e cada 
conjuntode 15 fascfculoscompoe um volume, Acapa paraenca- 
dernaqao de cada volume estara a venda oportunamente. 

COMPLETE SUA COLEgAO 

Exemplares atrasados, aie seis meses apos o encerramento da cole^ao, poderao 
ser comprados, a pre^os atualizados, da seguinte forma: 1. Pessoalmente — por 
meiodeseujornaleirooudi rigindo-se ao dist ri buidor local, cujo endere?o po- 
dera ser facilmente conseguido junto a qualquer jornaleiro de sua cidade. Em 
Sao Paulo os endere?os sao: Rua Brigadeiro Tobias, 773 (Centro); Av. industrial, 
1 1 7 (Santo Andre); e, no Rio de Janeiro: Rua da Passagem, 93 (Botafogo). 2. Por 
carta — Poderao ser soliciiados exemplares atrasados tambiem por carta, que deve 
ser enviada para DINAP — Distribuidor National de Publica^Ses — Numeros 
Airasados — Estrada Veiha de Osasco, 132 (Jardim Tereza) — CEP 06000 — 
Osasco — Sao Paulo. 3. Por telex — Utilize o n? (01 1) 33670 ABSA. Em Portu- 
gal, OS pedidos devem ser feitos k Distribuidora Jardim de Publica? oes Ltd. — 
Qta. Pau Varais, Azinhaga de Fetais — 2 685 , Camarate — • Lisboa; Tel. 257-2542 
— Apartado 57 — Telex 43 069 JARLIS P. 

Nao envie pagamento antecipado. O atendimenio serf feito pelo reembolso postal 
e o pagamento, incluindo as despesas postais, deverd ser efetuado ao se retirar 
a encomenda na Agenda do Correio. Atenfao: Ap6s seis meses do encerramento 
da eolegao, os pedidos serao atendidos, dependendo da disponibilidade de es- 
loque. Obs.: Quando pedir livros, mencione sempre o lituio e/ou o autor da obra, 
alem do numero da edi?ao. 

COLABORE CONOSCO 

Encaminheseuscomentarios, criticas, sugestoes ou reclamagoes 
ao Servigo de Atendimento ao Leitor — Caixa Postal 9442, 
Sao Paulo — SP. 
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PROGRAMACAODEJOGO, 




ULADOR 



UM PILOTO AUTOMATICO 



PARA CONDUZIR AVIAO 
APROXIME-SE DA PISTA 
COMO TRACAR RUMP 



FAC A PAINEL FUNCfONAR 




Ligue as turbtnas do aviao e observe 
jogo dos ponteiros no painel 
dos mostradores. Mas nao deixe de 
apertar o cinto, pois o 
piloto automatico ^ meio maluco. 



J& vimos como reproduzir o interior 
de uma cabine de aviao na tela do mi- 
crocomputador. No programa do arti- 
go anterior para as linhas TRS-Color, 
MSX, Apple e TK-2000, o aviao foi dei- 
xado estdtico, em pieno ar. Evidente- 
mente, uma situa^ao assim nunca ocor- 
re na vida real, 

Neste artigo, nosso aeroplano vai sajr 
voando e os tnstrumentos do painel vao 
ganhar vida, para que possamos acom- 
panhar seu movimento, apesar de ain- 
da nao estarmos em condifoes de mante- 
lo sob controle. 



COMO FAZER AEROPLANO VOAR 



Esta e certamente a parte mais longa 
da listagem: uma serie complexa de va- 
riaveis independentes deve ser constan- 
temente calculada para reproduzir e 
controlai o comportamento do aparelho 
em v6o. Ao mesmo tempo, os instru- 
mentos do painel precisam ser redese- 
nhados a raedida que a posi^ao e a alti- 
tude do aviao sofrem modificagoes. Da 
mesma forma, os niimeros dos mostra- 
dores s3o impresses para que saibamos 
sua posipao e sua orientagao. 



APROXIME-SE DA PISTA 



Uma imagem da pista no radar nos 
mostra o angulo de aproxima^ao no 
Spectrum e no MSX. No TRS-Color, 
uma imagem da pista pode ser obser- 



vada atrav^s da janeta, h medida que 
chegamos prdximo a pista. Esta apare- 
ce progressivamente, aproveitando aca- 
pacidade do TRS-Color em desenhar 
elipses. Ja os usuirios do Apple e do 
TK-2000 devem se orientar pela biisso- 
la (bearing), pela diregao da pista (run- 
way) e pela distincia do avi3o em rela- 
gao ao eixo longitudinal da pista (drift). 



CURSO DO APARELHO 



Diversos fatores devem ser conside- 
rados para que se possa calcular a po- 
sigio do aparelho num dado momen- 
to. A diregao em que estamos seguindo, 
por exemplo, 6 afetada pela dos ventos 
e pela posi^ao dos ailerons instalados 
nas duas asas, A velocidade de crtizeiro 
depende, por sua vez, da intensidade 
do vento. As velocidades de ascensao e i 
de mergulho estao sempre relacionadas | 
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com a de cruzeiro, e assim por diante. 
Para manter sempre atualizados os 
valores nos mostradores, as variaveis 
tSm de ser recalculadas e colocadas no- 
vamente na lela. 



2 LET UIY = 0: LET WX = Or LET GZ 
=0: LET GY=0: LET GX=0 
5 LET BW=0: LET Yl=120: LET 
Y2 = 120; LET Y.T=40: LET y4 = '10 
: LET POW=0: LET GC=0: LET R 
B=0: LET LL=0 ; LET YC-0 : LET 
AD=0 ! LET ST=0: LET RL=0 : 
LET BC=0: LET NC=Or LET PT=0 
: LET PX=0: LET VZ=C : LET UY 
=D: LET VX=0 
500 LET RA=AD*C: LET UX=AS*SIN 

510 LET V¥»AS*COS RA: RETURN 
aOOO LET P2=PZ+GZ: LET P¥=Py+GY 
: LET PX=PX+GX 
1025 IF ST=1 THEN 
1 ;AT 4.9; "M E R G 

ST=0; GOTO 1040 
1030 IF AS<30 THEN GOSUB 1500 
1040 LET AD=AD+HL: IF AD<0 THEN 

LET AD=AD+360 
1050 IF AD>359 THEN LET AD=AD- 



PRINT OVER 
U L H 0" : LET 



360 

1060 LET VZ=AS*SIN (PT*C)-10+AS 

/15 

1070 LET GZ"V^: LET GY=Vy+WY : L 

ET GX=VX+WX 

1080 IF yY=0 THEN LET GD=-PI/2 

: GOTO 1100 

1090 LET CD--ATN (UX/UY)/C 

1100 GOSUB 500 

1110 RETURN 

1500 LET ST=1' PRINT OUEB 1 ; AT 
4,9r"M E H G U L H O" : FOR M=l 
TO 4: FOB N=ZO TO -20 STEP -4: 
SOUMD -Ol.N! NEXT N: NEXT M 

1510 LET HL=INT CRND*21)-9: LET 
PT=-Z1-INT (RND*5) 

1520 RETURN 

21B0 IF GCOO THEN GOSUB 2200 

2190 LET AS=AS+16* (TC*30-AS-B*P 

T)/AS: GOSUB Z200: GOTO 2205 

2200 PLOT 35,50: DRAW OVER lil 

5*SIN (AS*PI/2Q0) , 15*C0S {AS*PI 

/200) : RETURN 

2205 IF GCOO THEN PLOT 155,50 

■ DRAW OVER 1:10*SIN (TN*PI/5) 

,10*COS (TN*PI/5! : PLOT 155,50: 
PRAW OVER i;15*3IN CUN*PI/500 

) ,15*C0S {UN*PT/500] 

2210 LET TN=P2/1000: LET UN-PZ- 

1000*1NT TN: PLOT 155.50: DRAW 
OVER l!l0*SIN (TN*PI/5) , 10*COS 
(TN*PI/5) : PLOT 155,50: DRAW 

OVER 1;15*3IN (UN*PI/500) . 15*C0 

S CUN*PI/500) 

2220 IF GCOO THEN GOSUB 2230 

2225 IF P0H--1 AND T02 THEN L 
ET TC-TC-2 

2226 IF P0W=1 AND TC<8.8 THEN 
LET TC=TC+2 

2228 GOSUB 2230: GOTO 2240 
2230 PLOT 215,50: 
15*SIN (TC*PI/5) , 
5) : RETURN 



DRAM OVER 1; 
15*C0S (TC*PI/ 



2240 PRINT AT 21.2:ABS INT AD:" 

2250 IF PY=0 THEN LET RB=0: GO 

TO 2260 

2255 LET HB-ATN (PX/py}/C: IF P 

y>0 THEN LET RB=RB+180 

2260 IP HB<0 THEN LET RB=RB+36 



2270 PRINT AT Z1,10;INT RB ; " 

;AT 21 , ISrABS INT PX ; " 

2290 PRINT AT 21, 25; INT (SQR (P 

Y*PY+PX*PX) ) ; " " 

2290 IF (Yl<=110 AND Y2<=110) O 

R (Yl>=130 AND Y2>=130) THEN G 

OTO 2300 

2Z95 IF GCOO THEN PLOT OVER 

1;X1.168-Y1: DRAW OVER 1;X2-PE 

EK 23677, 16B-Y2-PEEK 2367S 

2300 LET YC=120+{PT/3) r LET Xl= 

80: LET X2=110: LET Y1-YC+17*TA 

N [RL*2«C) : LET Y2=YC-17*TAN (R 

L*2*C) 

2310 IF (YC<110 OH YO130) AND 

RL=0 THEN GOTO 2376 

2320 IF YKllO THEN LET Xl = 95- 

(95-Xl)*UlO-VC)/(Yl-YC) : LETY 

1=110: GOTO 2340 

2330 IF Yl>130 THEN LET X1=9B- 

(95-Xl) *(130-YC)/(Y1-YC) : LETY 

1 = 130 

2340 IF Y2<110 THEN LET X2=95- 

(95-X2)*aiO-YC)/(Y2-yc) : LETY 

2-110: GOTO 2360 

2350 IF Y2>130 THEN LET X2=95- 

(95-X2)*(130-YC)/CY2-YC) : LET Y 

2-130 

2360 IF XK80 OR X2>110 THEN G 
OTO 23 76 

2 370 PLOT OVER l;Xl,166-yir PR 
AW OVER lrX2-PEEK 23677, 168-Y2 
-PEEK 2367S 

2376 IF {RL-RH AND PP=PT) THEN 
GOTO 2500 

2377 IF CY3<-2 AND Y4<-2) OH (Y 
3>=90 AND Y4>=90) THEN GOTO 23 
80 

2378 IF GCOO THEN PLOT OVER 
1;X3,176-Y3: DRAW OVER 1;X4-PE 
EK 23677, (176-y4>-PEEK 23678 
2380 LET YC=33+PT*4: LET X3=ll: 

LET X4»244: LET y3'=YC+118*TAN 
{RL«2*C) : LET Y4=YC-118*TAN (RL 
*2*C) 

2390 IF (YC<2 OR YO90) AND RL = 
THEN GOTO 2450 

2400 IF Y3<2 THEN LET X3-128-C 
128-X3)*(2-YC)/(Y3-YC) : LETY3= 
2: GOTO 2420 

2410 IF Y3>90 THEN LET X3=12e- 
[128-X3)*(90-yC)/(y3-YC) ; LETY 

3 = 90 

2420 IF Y4<2 THEN LET X4-12e-( 
12B-X4)* (Z-yC)/ (Y4-YC) : LET Y4- 
2: GOTO 2440 

2430 IF Y4>9Q THEN LET X4=12a- 
(128-X4)*(90-YC) /(Y4-YC) : LET Y 

4 = 90 

2440 IF X3<11 OH X4>244 THEN G 

OTO 2500 

2445 OVER 1: PLOT X3,176-Y3: DR 

AW X4-PEEK 23677, (176-Y4)-PEEK 

23678: OVER 

2500 GOSUB 8000 



2505 IF CC-0 THEN LET GC-1 
2510 LET RR-RL: LET PP=PT: RETU t 
RN 

50S0 LET GZ=VZ: LET GY-VY-t-WY : L 
ET GX=VX+UX 
5090 LET TC=5 

5100 LET RT=3: LET TP=S: LET UR 
-50 

5500 IF INT CRND*5)=1 THEN LET 
RL=HL+INT CaND*5)-2: IF INT (H 
ND*5)=1 THEN LET PT-PT+3'INT ( 
RND*2)+1*2 

5510 GOSUB lOCO: IF PZ<0 THEN 
GOTO 55 30 

5520 GOSUB 2180: GOTO 5500 
5530 GOTO 5500 

8O0O IF GCOO THEN PLOT 127,17 
4: DRAW OVER 1 ; OX , OY 
8010 LET 0X-16*3IN (RB*<PI/iaO) 
): LET OY— a6*ABS COS (RB* (PI/ 
ISO))) 

8020 PLOT 127,174: DRAW OVER 1 
;0X,OY 

8025 LET WB-AD: IF AD>180 THEN 
LET WB-WB-360 

8026 IF RB>ia0 THEN LET WB=WB+ 
36Q-HB: GOTO 8040 
8030 LET UB-WB-RB 
8040 IF EW=1 THEN PLOT OVER 1 
;HDX, 175-RDY 

8050 LET B«=0: IF ABS «B>57 THE 
N RETURN 

8060 LET RDX=X3+INT (((X4-X3)/2 
)-SIN (WB* (PI/180) )*(X4-X3)*6) 
8070 LET RDy=y3+((y4-y3)*( [HDX- 
X3)/{X4-X3) )+2) 

8080 IF RDY<2 OR HDY>90 OR RDX< 
11 OR RDX>244 THEN RETURN 
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8090 LET BW=1: PLOT OyER 1 ; RDX 
, 175-HDY 
8100 RETURN 

O POKE na linha 1 trava as linhas 
maiiisculas do computador. A linha 5 
zera todas as variaveis- A linha 1 10, que 
ja foi digiiada na primeira parte do pro- 
grama (ou seja, no artigo anterior), en- 
via o computador para a linha 5000, on- 
de e desenhado o interior da cabine. A 
linha 5080 cuida das variaveis que de- 
lerminam a posigao do a viae no espa- 
Co: GZ se refere a distancia do apare- 
Iho ao longo do eixo Z — sua altitude; 
VZ e a velocidade ao longo desse mes- 
mo eixo; VY e a velocidade ao longo do 
eixo Y — para frente e para tras; WY 
e a velocidade do vento nessa mesma di- 
re^ao. GX, VX e WX correspondem a 
distancia percorrida, velocidade e velo- 
cidade do vento em relagao ao eixo X 
— direita e esquerda. 

A linha 5090 estabelece o valor ini- 
cial da rota(;ao do motor. A linha 5100 
define os limites da inclina<;ao do aviao 
(HT, relacionada com os movimentos la- 
terals), assim como da ascensao (TP, 
que faz o aviao subir ou descer) e da lar- 
gura da pista (WR). 

A linha 550O e um comando tempo- 
rdrio encarregado de manobrar o aviao 
ate o memento em que a rotina de con- 
trole propriameme dita e digitada (o que 
sera feito no proximo artigo desta s^rie). 



A linha 55 10 chama a sub-rotiiia que 
come^a na linha 1000 e termina em 
1110. Essa sub-rotina recalcula os valo- 
res de todas as variaveis h medida que 
o aviao se movimenta. As linhas 1025 
e 1030 verificam se o aparelho entrou em 
parafuso, por ter uma velocidade mui- 
to baixa (inferior a 30 m porsegundo). 
Caso isso aconteca, sera chamada a sub- 
rotina 1500, que se encarrega de repro- 
duzir OS efeitos de um mergulho, A li- 
nha 5510 impede que po.ssamos prever 
o rumo do aviao durante a queda (este 
pode mergulhar dirctamente ou entao 
entrar em parafuso). 

A linha 1 100 chama a sub-rotina 500, 
que calcula o angulo da trajetdria do 
aviao. 

A pr6xima grande sub-rotina a ser 
chamada comepa na linha 2180 e termi- 
na em 2510. Ela redesenha os mostra- 
dores e contadores a medida que a in- 
formagao que estes Irazem se modifica. 
A linha 2180 verifica o contador GC pa- 
ra ver se \\k algo a ser redesenhado. A 
sub-rotina 2200 desenha a nova posi^ao 
dos ponteiros do mostrador da veloci- 
dade do vento (airspeed). As linhas 2205 
e 2210 calculam c redesenham as duas 
novas posicoes dos ponteiros que mar- 
cam a altitude. A linha 2230 movimen- 
ta OS ponteiros, usando os calculos das 
linhas 2225 e 2226. 

contagiros ^ atualizado pela linha 




2240, M linhas 2250 a 2270 calculam a 
dire<;ao da pista (nmwuy) e o desvio do 
aviao em rela^ao ao eixo principal des- 
ta ultima (drift). A distancia ate o cen- 
tro da pi.sta e calculada e impressa pela 
linha 2280. 

O horizonte artificial do segundo 
mostrador e calculado e desenhado pe- 
las linhas 2280 a 2370. 

A linha 2376 verifica o horizonte que 
aparece na janeia, enquanto as hnhas 
2377 a 2445 o recalculam e o redese- 
nham, conforme o caso. 

A linha 2500 chama a sub-rotina que 
comepa na linha 8000 c termina na 8100. 
Essa sub-rotina calcula e desenha a ima- 
gem da pista no radar, que pode ser vista 
no topo da tela, e o ponlinho logo abai* 
xo da linha de horizonte. 



100 PRINT HND(-TIME) 

500 RA=AD*CrVX=W*SIN(HA) 

510 VY=Uy*COS(RA) :RETUHN 

1000 PZ = PZ+GZ: PY-=Py+GY :PX = P3< + GX 

1020 VV=VV+!6* CTC*30-VV-e*PT) /V 

u 

1030 IF ST = 1 THEN LINE (90 . 1 ) - (2 

30,8) .4,BF:ST=0 :GOTO 1060 

1040 IF WOO THEN GOSUB ISOO 

1050 AD=AD+RL:TF AD<0 THEN AD=A 

D+360 

1060 IF AD>359 THEN AD=AD-360 

1070 VZ=VV*SIN(PT*C) -lO+VV/15 

1080 GZ-V^:Gy=UY+WY;GX=VX+WX 

1090 IF VY=0 THEN GD--PI/2 : GOTO 

1110 
1100 GD=~ATN(VX/VY)/C 
J 110 GOSUB 500 
1120 RETURN 

1500 ST=1 :X=96: Y-1 :COLOH 6 
1510 A3="«ERGULH0" :GOStJB 4000:X 
=97:GOSUB 4000 
1520 PLAY"T25bAGFEDCAGFED(:" 
1530 HL=INT(RND{1) «21J -9:PT=-21 
-INT (RND(l) *5) 
1540 RETURN 
2000 COLOR 15 

2005 LINE (35. 1 28) - [ 35+15*SlN (VI 
*PI/200) , 12S-15*COS[V1*PI/200) ) 
.8 

2010 LINE(36, 128)- (35+15«SIN(VV 
*PI/200) .128'15»COS{VV*PI/200) ) 
2015 LINE(155, 128)- (155+10*SIN( 
Tl*PI/5) , 128-1 0*COS(Tl«PI/5) ) ,6 
2020 TN=PZ/1000:UN=PZ-1000*INT{ 
TN) : LINE [155, 1 28 ) - ( 15B + 10*STN (T 
N*Pr/5) , 128-10*COS(TN«PT/5) ) 
2025 LrNE(155, 128! - (155+15*SIN( 
Ul*Pl/500) ,128-15*COS(Ul*PI/500 
)) ,6 

2030 LINE(155. I28)-C155+15*SIN( 
UN*PI/500) ,12e-15*COS(UN*PI/500 
) ) 

2035 LINE(215,128)- (215+i5*SIN( 
T2*PI/5) ,12e-15''COS (T2*PI/5) ) ,8 
2040 LINE(215.12a) - (215+15«SIN( 
TC*PI/5) , 128-15*COS [TC*Pl/5) ) 
2050 COLOR 15!X = 16;Y=1B0 :AS = STE1 



S(ABS(INT(AD) )) :GOSUB 3900 

2060 IF py-0 THEN HB=0 ELSE HB= 

ATN(PX/Py) /C:IF PY>0 THEN RB=HB 

+ 180 

2070 IF RB<0 THEN RB-RB+360 

2080 X-79:A$-STR3 tINTtRB)) :GOSU 

B 3900:X"13B:AS='STR$(INT{PX) ) :G 

OSUB 3900 

2090 X=ig4:AS-STBS(rNT[SQHtPY*P 

Y+-PX*PX) ) ) :GOSUB 3900 

2100 YC = 128+PT:)C1 = 80:X2 = 110:Y1 = 

YC+17*TANCRL*2*C) : If 2-YC-l 7*TAN t 

HL*2*C) 

2110 IFCVC<]13 OH V0143) AND R 

L=0 THEN 2320 

2120 IF YK113 THEN Xl-95- (9S-X 

1)*(105-YC)/(Y1-YC) :Y1=113:G0T0 

2140 
2130 IF Vl>143 THEN Xl=95-(95-X 
l)*tl35-YC)/tYl-YC) =YI=143 
2140 IF y2<113 THEN X2-95- C9S-X 
2) « (105-YC) /(Y2-YC) •YZ=I13:GOT0 

2160 
2150 IF y2>143 THEN X2-95" t95-X 
2)*C13S-YC)/(Y2-yC3 :Y2-143 
2160 IF XKBO OH X2>110 THEN 21 

eo 

2165 DRAW "BM81,128C10R9F5E5R9" 
2170 LINE(X5,Y5)-tX6.1f6) ,8:LINE 
(X1,Y15-(X2,Y2) :X5-X1:Y5=Y1:X6= 
X2:y6=y2 

2180 IF X7-R>10 AND X7+H<245 AN 
D y7>0 AND Y7<B0 THEN CIRCLK(X7 
,y7) ,R, 4.0, .5.10 

2190 IF RL=RR AND PP=PT THEN 22 
90 

2200 IF HF-1 THEN LINE !X3,Y3)- 
(X4.y4) ,4 

ZZIO HF=0:YC=33+PT*4:X3=16:X4-2 
39ty3=YC+118*TAfICRL*2*C) :Y4=YC- 
118«TANCBL*2*C) 

2220 IF(yC<10 OR Y079) AND RL = 
THEN 2290 

2230 IF Y3<1 THEN X3=128- {128-X 
3) «Cl-yC] / (Y3-YC) :y3 = l:G0TO Z25 


2240 IF Y3>79 THEN X3=128-(12B- 
X3)*(79-YC)/(Y3-yC) :Y3-79 
?250 IF Y4<1 THEN X4=128- {128-X 
4)*(1-YC)/(Y4-YG) :y4=l:G0TO 227 



2260 IF Y4>79 THEN X4=128-(128- 

X4)*(79-yC)/(Y4-YC) :Y4=79 

2270 IF X3<16 OB X4>239 THEN 22 

90 

2280 HF-1:LINE(X3,Y3)-(X4,Y4] .1 

5 

2290 WB-AD:IF AD>180 THEN WB-WB 

-360 

2300 IF HB>160 THEN WB-WB+360-fl 

B ELSE WB-WB-RB 

2310 IF ABSCWB)>60 AND ABS(PY)> 

1000 THEN 2370 
2320 AN*lie/(60 
-X4)+{Y3-Y4)*{Y 
4)/2+SGNCX3-X4) 
2330 Y7=(Y3+Y4) 
4) :IF X7<16 OR 
R Y7>79 THEN 23 
2340 IF ABSCPY) 
7/10 ELSE H-400 



m\ 



|0+Y7>80 THEN H- 
'2350 TF y7<l OR 



*SQHl(X3-X4)«(X3 
3-Y4)) > :X7-(X3+X 
+WB*AN*{X3-X4) 
/'2-t-2+WB*AN«(Y3-Y 
X7>239 OR Y7<1 O 
70 

<1000 THEN R=8-Y 
0/ABS(PY) :IF R*! 
9-Y7/10 
Y7>79 OH X7-H<1 



6 OR X7+R>239 THEN 2370 

2360 CIRCLE(X7,Y7) ,R, 15.0, .5,10 

2370 V1-WV:U1-UN:T1=TN:T2=TC 

2380 RR=BL:PP=PT: RETURN 

3900 LINE(X,Y)-(X+50, Y+B) , Z.BF 

5080 GZ-UZ:GY-UY+WY:GX-VX+WX 

5090 TC-5 

5100 RT=3:TP-5:WIt=50 

5190 DRAW "BMei. 12eC10B9F5E5H9" 

5500 IF INT(RND(1)*10)=1 THEN R 

L=RL-SGN(RL)+INT(RND(1) *5-Z3 

5505 IF INT(RND(1)«10)-1 THEN P 

T=PT+3-lNT(RND(l)*2+l)*2 

5510 GOSUB 1000: IF PZ<0 THEN 55 

30 

5520 GOSUB 2000:GOTO 5SO0 

5530 GOTO 5530 

A linha 100 "embaraiha as cartas", 
permitindo a cria^ ao de niimeios ao aca- 
so. A 5080 estabelece os valores das va- 
riaveis que controlam a posigao do apa- 
relho no espa<po, conforme a sua velo- 
cidade e a forpa e diregao do vento. GZ 
nos revela a distancia percorrida ao lon- 
go do eixo Z (alto-baixo); VZ, a veloci- 
dade nesse eixo. VY informa a veloci- 
dade ao longo do eixo Y (frente-tras); 
WY, a velocidade do vento nessa mes- 
ma diregao; GX, VX e WX correspon- 
dem respectivamente a distancia percor- 
rida, a velocidade do aparelho e h velo- 
cidade do vento ao longo do eixo X 
(direita-esquerda), 

A iinha 5090 determina a rotatjao ini- 
cial do motor; a 5100 define os limiles 
da inclina^ao lateral (RT), que faz o 
aviao virar; da incltna^ao frontal (TP), 
que faz o aviao subir ou descer, e da lar- 
gura da pista (WR). 

As ijltimas cinco linhas sao coman- 
dos temporarios. Elas fazem com que o 
aviao voe de maneira irregular, com in- 
clinagoes laterals e frontais estabelecidas 
ao acaso. 

As sub-rotinas das linhas 1000 a 1 120 
recalculam todas as varidveis enquanto 
aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de30m porsegundo. Quan- 
do isso acontece, 6 chamada a sub- 
rotina da linha 1500. que recria os efei- 
tos de uma queda ou mergulho. A linha 
1510 introduz um elemento de acaso no 
processo, de maneira que tanto pode- 
mos mergulhar diretamente para o chSo 
como podemos entrar em parafuso. A 
sub-rotina 500, que e chamada pela li- 
nha 1110, calcula o angulo em que o 
aparelho estS voando. 

A sub-rotina que vai da linha 2000 k 
linha 2380 cuida do restante do progra- 
ma. Ela atualiza a tela, ajustando o pai- 
nel de instrumentos, que mostra o mo- 
vimento do aviao. Para fazer isso, i ne- 
cessSrio. pnmeiramente, apagar o anti- 
go conteudo de cada instrumento e de- 
senhar a seguir os ponteiros correspon- 



dentes k nova posiijao do aparelho. 

O mostrador da velocidade do vento 
e atualizado pelas linhas 2005 e 2010, en- 
quanto as linhas 2015, 2020, 2025 e 2030 
cuidam do mostrador de altitude. O 
contagiros e modificado pe!as linhas 
2035 c 2040; a linha 2050 corrige a dire- 
?ao em que o aviao esta seguindo {bea- 
ring, que 6 o angulo da bussola medido 
em graus). A direcao da pista (runway, 
tambem em graus) ^ modificada pelas 
linhas 2060 a 2080, e o novo valor da 
distancia e impresso pela linha 2090, 

A linha 2190 verifica se o horizonte 
deve ser modificado, enquanto as linhas 
2100 a 2170 desenham o novo horizon- 
te artificial no mostrador corresponden- 
te. O horizonte e desenhado pelas linhas 
2200 a 2280. 

A nova posigao da pista 6 calculada 
pelas linhas 2290 a 2360. A 2350 verifi- 
ca se a pista pode ser desenhada na te- 
la. A 2180 apaga a versao antiga quan- 
do uma nova 6 desenhada. 

Execute entao o programa e veja o 
aviao voar sozinho... por enquanto. 



H][S]I 



800 HA - AD * C:VX - AS * SIN 

(RA) 

810 UY - AS * COS (RA) : RETURN 

1000 P2 - PZ + GZ:PY - PY + GY : 
PX = PX ^- GX 

1020 AS = AS + 16 * (TC * 30 - 
AS - 8 * PT5 / AS 
41030 IF ST - 1 THEN ST » 0: GO 
TO 1050 

1040 IF AS < 30 THEN GOSUB 15 
00 

105O AD = AD + HL: IF AD < TH 
EN AD - AD +360 
1060 IF AD > 359 THEN AD - AD 
- 360 

1070 VZ - AS * SIN (PT * C) - 
10 + AS / 15 

1080 GZ = UZ:GY - VY + WY : GX - 
VX + WX 
1090 IF VY " THEN GD «■ - PI 

/ 2: GOTO 1110 
1100 GD - - ATN (VX / UY) / C 
1110 GOSUB 800 
1120 RETURN 
1500 ST - 1 
1510 RL = INT C RND [1) * 21 + 

1) - 10:PT - - 20 - INT ( RN 
D <!) * 5 + 1) 
1520 RETURN 
2000 HCOLOH= 
2010 HPLOT 41,134 TO 41 + 20 * 

SIN (Al * PI / 200). 134 - 20 
* COS (Al * PI / 200) 
2015 HCOLOR- 3: HPLOT 41.134 T 
41 + 20 * SIN (AS * PI / 200 
).134 - 20 * COS {AS * PI / 20 
0) 

2020 HCOLOR- 0: HPLOT 177,134 
TO 177 + 16 * SIN (Tl * PI / 5 
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) .134 - 15 * COS (Tl « PI / S) 
2025 HCOLOR- 3 : TN - PZ / 1000: 
UN = PZ - 1000 * INT (TN) : HPL 
OT 177.134 TO 177 + 15 * SIN C 
TN * PI / 5). 134 - 15 * COS (T 
N * PI / 5) 

Z030 HCOL0Ei= 0: HPLOT 177,134 
TO 177 + 20 * SIN (Ul * PI / 5 

oo) .134 - 20 " COS (01 * PI y 

500) 

2035 HCOLOR* 3: HPLOT 177,134 
TO 177 + 20 * SIN (UN * PI / 5 
00) ,134 - 20 * COS (UN * PI / 
500) 

2040 HCOL0H= 0: HPLOT 245,134 
TO 245 + ZO « SIN tT2 * PI / 5 
),134 - 20 * COS (T2 * PI / 5) 
2045 HCOLOR= 3: HPLOT 245,134 
TO 245 + 20 * SIN (TC * PI / 5 
) ,134 - 20 * COS (TC * PI / 5) 
2050 L = 23:C = 4 : AS = LEFTS C 

STRS ( ABS ( INT (AD))) + " 
" , 3} : GOSUB 4000 

2060 IF PY = THEN RB = : GO 
TO 2070 

2062 RB - ATN (PX / PV) / C 
2065 IF PY > THEN RB = RB + 
180 

2070 IF RB < THEN RB = RB + 
360 

2080 C = 14:A$ = LEFTS ( STRS 
( INT (RB)) + " ",3) : GOSUB 4 
00O:C - 24:AS = LEFTS ( STRS ( 

INT (PX) ) + " ".4) : GOSUB 4 
000 

2090 C = 32:AS = LEFTS ( STBS 
( INT ( SQR (PY * PY + PX * PX) 
] ) + " ",5) : GOSUB 4000 
2100 YC - 134 + PT:X1 - 90:X2 = 

130 :yl - YC + 17 * TAN (RL • 
2 * C) :Y2 - YC - 17 * TAN (RL 
* 2 • C) 
2110 IF (YC < 119 OR YC > 149) 

AND RL = THEN 2380 
2120 IF Yl < 119 THEN XI = 110 

- (110 - XI) * (119 - YC) / (Y 
1 - YC) :Y1 - 119; GOTO 2140 
2130 IF Yl > 149 THEN XI = 110 

- (110 - XI) * (149 - YC) / (Y 

1 - YC) :Y1 = 149 

--^140 IF Y2 < 119 THEN X2 - 110 

- (110 - X2) * (119 - yc) / (Y 

2 - YC) :Y2 - 119 

2150 IF Y2 > 149 THEN X2 = 110 

- (110 - X2) * (149 - YC) / (Y 
2 - yC) -YZ - 149 

2160 IF XI < 90 OR X2 > 130 TH 

EN 2190 

2170 HCOLOR- 0: HPLOT X5,Y5 TO 

X6.Y6 
2175 HCOLOR- 3: HPLOT XI. Yl TO 

X2, Y2 
2177 HCOLOR- 5: HPLOT 85.136 T 
104,138 TO 109,148 TO 114,138 

TO 134,138 
2190 IF RL = RR AND PP = PT TH 
EN 2JB0 

2200 IF HF = 1 THEN HCOLOR= 
: HPLOT X3.Y3 TO X4.Y4 
2210 HF • OtYC = 33 + FT * 4:X3 

- 11;X4 - 275:Y3 - YC + 118 * 
TAN (RL * 2 * C) ;Y4 = YC - IIB 
* TAN (RL * 2 * C) 



2220 IF (YC < 10 OR YC > 79) A 

ND RL = THEN 2380 

2230 IF V3 < 1 THEN X3 ■= 143 - 

(143 - X3) * (1 - YC) / CY3 - 
YC) ;Y3 = 1 : GOTO 2250 
2240 IF Y3 > 79 THEN X3 = 143 

- (143 - X3) * (79 - YC) / tV3 

- YC) :Y3 = 79 

2250 IF Y4 < 1 THEN X4 = 143 - 

(143 ' X4) * (1 - VC) / (Y4 - 
YC) : Y4 = 1 : GOTO 2270 
2260 IF Y4 > 79 THEN X4 = 143 

- (143 - X4) * (79 - YC) / (Y4 

- YC) :y4 = 79 

2270 IF X3 < 11 OR X4 > 275 TH 

EN Z3B0 

2280 HF = 1: HCOLOR- 3: HPLOT X 

3. Y3 TO X4 ,y4 

2380 RH = aL:PP = PT:A1 = AS:U1 

- UN:T1 = TN:T2 = TC:X5 = X1:Y 
5 = Y1:X6 = X2:Y6 = Y2 : RETURN 
5080 G2 = UZ:GY = VY + WY:GK. = 
VX + WX 
5090 TC = 5 

5100 RT = 3:TP = 5 : WR = 50 
5500 IF INT { RND (1) * 10 + 
1) - 1 THEN RL - RL - SON (RL) 

+ ( INT t RND (1) * 5 + 1) - 3 
) 

5505 IF INT C RND CD * 10 + 
1) = 1 THEN PT =• PT + 3 - INT 
( RND (1) « 2 + 1) * 2 
5510 GOSUB 1000; IF PZ < THE 
N 5530 

5520 GOSUB 2000; GOTO 5500 
5530 GOTO 5530 

A linha 5080 estabelece os valores das 
vari^veis que controlam a posigao do 
apareiho no espaijo, de acordo com a 
sua velocidade e a for^a e a dire^ao do 
vento. GZ informa sobre a dist§ncia 
percorrida ao longo do eixo Z (alto- 
baixo); VZ nos da a velocidade nesse ei- 
xo; VY, a velocidade ao iongo do eixo 
Y (frente-tras); WY, a velocidade do 
vento nessa mesma diregao. Da mesma 
forma, GX, VX e WX correspondem, 
respectivamente, a distancia percorrida, 
a velocidade do aviao e a velocidade do 
vento ao longo do eixo X (direita- 
esquerda). 

A linha 5090 determina a rota(;ao ini- 
cial do motor, a 5100 define os limites 
da inclina^ao lateral (RT), que faz o 
aviao virar; da inclinafjao frontal (TP), 
que faz o aviao subir ou descer, e da lar- 
gura da.pista (WR). 

As ultimas cinco linhas sao coman- 
dos temporarios. Elas fazem com que o 
aviao voe de maneira irregular, com in- 
clina^oes laterais e frontais estabelecidas 
ao acaso. 

As sub-rotinas das linhas 1000 a 1 120 
recakulam todas as variaveis enquanto 
o aeroplane se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de 30 m per segundo . Quan- 
do isso acontece, i chamada a sub- 
rotina da linha 1500, que recria os efei- 



tos de uma queda ou mergulho. A linha 
1510 introduz um elemento de acaso no 
processo, de forma que tanto podemos 
mergulhar diretamente para o chao co- 
mo entrar em parafuso. A sub-rotina 
500, que e chamada pela linha 1110, i 
encarregada de calcular o angulo em que 
o apareiho est^ voando. 

A sub-rotina que vai da linha 2000 a 
2380 cuida do restante do programa. Ela 
atualiza a tela, ajustando o painel de ins- 
trumentos, que mostra o mqvimento do 
aviao. Para isso, e necessario apagar o 
antigo conteiido de cada instrumento e 
desenhar os ponteiros coTrespondentes 
a nova posigao. 

O mostrador da velocidade do vento 
e atuaiizado pelas linhas 2010 e 2015, en- 
quanto as linhas 2020, 2025, 2030 e 2035 
cuidara do mostrador de altitude. O 
contagiros, por sua vez, i modificado 
pelas linhas 2040 e 2045; a linha 2050 
corrige a diregao em que o aviao esta 
voando {bearing, que i o angulo da bus- 
sola medido em graus). A diregao da pis- 
ta (runway, lambem em graus) e modi- 
ficada pelas linhas 2060 a 2080, e o no- 
vo valor da distancia € impresso pela li- 
nha 2090. 

A linha 2090 lambem verifica se o ho- 
rizonte deve ser modificado, e as linhas 
2100 a 2170 desenham o novo horizon- 
te artificial no mostrador corresponden- 
ce. O horizonte verdadeiro e desenhado 
pelas linhas 2200 a 2280. 

Execute entao o programa e veja o 
aviao voar sob o controle do piloto au- 
tomtitico. 

fi possivel que, ap6s alguns minutos 
de voo, a tela grafica comece a ser 
preenchida por pontes aleatorios que es- 
tragam o desenho. Isso acontece sempre 
que usamos muitos cordoes. No nosso 
caso, d a varidvel AS (respons^vel pela 
impressao dos contadores) que i usada 
a todo instante. 

Nao se alarme. O pr6ximo artigo re- 
solver^ o problema, e permitirA que vo- 
ce assuma o controle do apareiho. 



500 RA-AD*C:VX-OT*SIN(RA) 
510 VY-UV*COS (RA) : RETURN 
1000 PZ-PZ+GZ:PY-PY+Gy;PX-PX+GX 
1020 yV-VV+16*(TC*30-UU-e*PT)/V 
V 

1030 IF ST-1 THEN PMODE 4,1:DRA 
WBM108.40C0" :AS-'MERGULHO' :GOS 
UB 4000:DRAW"C5" :ST-0:GOTO 1050 
1040 IF VU<30 GOSUB 1500 
105 AD-AD+RL:IF AD<0 THEN AD-A 
D+360 

1060 IF AD>359 THEN AD-AD-360 
1070 V2-UU*SIN(PT*C)-10+VV/15 
1080 GZ-UZ:GY"VY+WY:GX-UX+WX 
1090 IF UY-0 THEN GD— PI/2:G0T0 
1110 
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1100 GD--ATN(VX/Vy)/C 

1110 GOSUB 500 

1120 RETURN 

1500 PMODE 4, 1:ST-1;DHAW"BM108. 

40" rAS^^MEBGULHO" : GOSUB 4000:PL 

AV"T20AGFEDCAGFEDC'' 

1510 HL-aMD(21}-10;PT=-20-RND{5 

) 

15 20 RETURN 



2000 PCOP? 5 TO 7:PC0PY 6 TO 8 : 

PMODE 4 . 5 

2010 LINEC35.120)-(3S+20*SIN{UV 

*PI/200) , 1ZO-20*COS(VU*PI/200J ) 

,PSET 

2020 TN-PZ/1000:UN-PZ-1000*INT( 

TN) : LINE (155.1 20 )-(155+15*SIN(T 

N"PI/5) , 120-15'«COS(TN''PI/5) ) , PS 

EX 



2030 LINEE155.i20)-{155+20*SINC 

UN*PI/500) . 120-20*COS [UN*PI/500 

) } , PSET 

2040 LINEC2i5,120)-(215+20*SINC 

TC«PI/5) , 120-20*COS(TC*PI/5) ) ,P 

SET 

2050 DEAW'BM16,172Se";AS-STRS(A 

BS (INT(AD) ] ) :GOSUB 4000 

2060 IF PTf-0 THEN HB-0 ELSE RB = 




ATN(PX/Py)/C:IF P¥>0 THEN RB-RB 

+ 180 

2070 IF aB<0 THEN RB-RB+360 

2080 DRAW"BM80,172'':A$=STaS{INT 

tHB)):GOSUB 4000 : DRAW"BM140 . 172 

- ;AS-STRS (ABS(INT(PX) ) ) :GOSUB 4 

000 

2090 DnfiV"BHl96.17 2" thS'STa${lH 

T(SQR(P¥*P5f + PX*PX) ) 3 :GOSUB 4000 

2100 yc-120+PT:Xl-80:X2-110;Yl- 

¥C+17*TAN (RL*2«C) : y2-YC-17«TAN ( 

RL*2*C) 

2110 IF (YCC105 OB yC>1353AND R 

L=0 THEN 2320 

2120 IF YK105 THEN X1-95-C95-X 

l)*{10 5-YC)/CYl-lfC) :X1-105:GOTO 

2140 
2130 IF 1fl>135 THEN Xl-95-(95-X 
13*(135-yC)/ tYl-YC) :Tfl-135 
2140 IF Y2<105 THEN X2-95-C95-X 
2)*U05-YC)/Cy2-lfC) :Y2-105:GOTO 

2160 
2150 IF y2>135 THEN X2-95-<95-X 
2)*(135-YC)/{Y2-yC) :Y2-135 
2160 IF XKBO OR X2>H0 THEN 21 
80 

2170 LINE(X1,Y1)-(X2.Y2) .PSET 
2180 PMODE 4,1: IF X5-R>10 AND X 
5+R<245 AND Y5>0 AND Y5<80 THEN 

CIRCLE CX5,Y5) ,R, 0,10,0. .5 
2190 IF RL-RR AND PP-PT THEN 22 
90 

2200 IF HF-1 THEN LINE (X3,Y3)- 
(X4,Y4) .PRESET 

2210 HF-0:YC-33+PT*4:X3-ll:X4-2 
44:Y3-YC+118*TAN(RL*2«C) :Y4-YC- 
118*TAN(BL«2*C) 
2220 IF(YC<10 OR YC>79}AND RL-0 

THEN 2290 
2230 IF Y3<1 THEN X3-1 28- ( 128-X 
3)*(1-YC}/(Y3-YC) ;Y3-1:G0T0 225 


2240 IF y3>79 THEN X3-128-(128- 
X3)*(79-YC)/(Y3-YC) :Y3-79 
2250 IF Y4<1 THEN X4-1 28- ( 128-X 
4)* (l-YC)/tY4-YC) :Y4-1 :GOTO 227 
D 

2260 IF Y4>79 THEN X4-128-(128- 
X4)*(79-YC)/IY4-YC] :Y4-79 
2270 IF X3<11 OR X4>244 THEN 22 
90 

2280 HF-1:LINE{X3,Y3)-(X4,Y4) ,P 
SET 

2290 WB-AD:IF AD>180 THEN WB-WB 
-360 

2300 IF HB>180 THEN Wa-WB+360-R 
B ELSE WB-WB-HB 

2310 IF ABS(WB)>60 AND ABS(PY)> 
1000 THEN 2370 

2320 AN-118/{60«SQR(<X3-X4)*(X3 
-X4) + CY3-Y4)*(Y3-Y4))) :X5-tX3-t-X 
4) /2+SGN(X3-X4) +WB*AN'* (X3-X4) 
2330 Y5-(Y3+Y4)/2-t-2+WB*AN*(Y3-Y 
4}; IF X5<11 OR X5>244 OH Y5<1 O 
R Y5>79 THEN 2370 
2340 IF ABStOYXlOOO THEN H-S-Y 
5/10 ELSE R-4000/ABS(PY) :IF R*l 
0+Y5>80 THEN H-8-Y5/10 
2350 IF Y5<10 OR Y5>79 OR X5-a< 
11 OR X5+R>244 THEN 2370 
2360 CIRCLE <X5 , YS) , R , 5 . 10 . , . 5 

2370 PCOPY 7 TO 3 : PCOPY 8 TO 4 

2380 RH-HL:PP-Pr:RETUaN 



5080 GZ-V2:GY-VY+WY:GX=yX+WX 

5090 TC=5 

5100 RT=3 :TP-5:WR=50 

5500 IF HNDdOJ-l THEN RL-RL-SG 

N(HL)+CRNDC5)-3) 

5505 IF HNDC10}=1 THEN PT=PT+3- 

RND(2)*2 

5510 GOSUB 1000: IF PZ<0 THEN 55 

30 

5520 GOSUB 2000:GOTO 5500 

5530 GOTO 5530 

A linha 5080 estabelece os valores das 
variaveis que controlam a posifao do 
apardho no espago, con forme a sua ve- 
locidade e a for^a e dire^ao do vento. 
GZ revela a distancia percorrida ao loti- 
go do eixo Z (alto-baixo); VZ, a veloci- 
dade neste eixo; VY, a velocidade ao 
longo do eixoY(frente-tras); WY, a ve- 
locidade do vento nessa mesma diregao. 
Por sua vez, GX, VX e WX correspon- 
dem, respectivamente, a distancia per- 
corrida, a velocidade do apareiho e a ve- 
locidade do vento ao longo do eixo X 
(direita-esquerda). 

A linha 5090 determina a rotagao ini- 
cia) do motor; a 5100 define os limites 
da inclinagao lateral (RT), que faz o 
aviao virar; da inclinagao frontal (TP), 
que faz o aviao subir ou descer, e da lar- 
gura da pisia (WR). 

As ultimas cinco linhas sio coman- 
dos temporaries, Elas fazem com que o 
aviao voe de maneira irregular, com in- 
clinagoes laterals e frontais estabelecidas 
ao acaso. 

A sub-rotina das linhas 1000 a 1120 
recalcula todas as variaveis enquanto 
aeroplano se movimenta. As linhas 
1030 e 1040 verificam se a velocidade 
caiu abaixo de 30 m por segundo.Quan- 
do isso acontece, e chamada a sub- 
rotina da linha 150O, que recria os efei- 
tos de uma queda ou mergutho. A linha 
i5IOtntroduzum elementode acaso no 
processo, de forma que tanto podemos 
mergulhar diretamente para o chao co- 
mo entrar em parafuso. A sub-rotina 
500, que 6 chamada pela linha 1110, e 
incumbida de calcular o angulo em que 
o apareiho esti voando. 

A sub-rotina que vai da linha 2000 a 
2380 cuida do restante do programa. Ela 
atualiza a tela, ajustando o paine! de ins- 
trumentos que mostram o movimento 
do aviao. 

A linha 2000 transfere a versao ori- 
ginal da cabine para outra parte da me- 
m6ria. O mostrador da velocidade do 
vento e atualizado pela linha 2010, en- 
quanto as linhas 2020 e 2030 cuidam do 
mostrador de altitude. O contagiros e 
modificado pela linha 2040, enquanto a 
2050 corrige a diregao em que o aviao 
estd seguindo {bearing, quee o angulo da 
biissola medido em graus). A diregao da 




Como melhorar a velocidade de sxe* 
cupcio do simulador de vdo? 

programa de simulagao de v6o § 
bastante lento. Isso acontece porque 
ele foi escrito em llnguagem BASIC in- 
terpretada, com urn grande numero de 
equagoes a serem resoividas a cada 
passo da simula^iio, e de grSficos com- 
plexoa a serem desenhados. Uma das 
solugoes para o problema seria colocar 
mais comandos por linha, e tirar espa- 
pos em branco; isso, porSm, tornaria o 
progfama mais diffcil de ser entendido 
e corrigido, sem aumentar muito a ve- 
locidade. 

Uma safda (para quern dfspoe de um 
micro com unidade acionadora de dis- 
quetes) consiste em utilizer um compi- 
lador para o programa. Um compilador 
d um programa especial que tfadu2 um 
outro programa desenvolvido em lin- 
guagem de alto nfvel (como o BASIC) 
para c6digo de m^quina. Com ele, a ve- 
locidade de execugao chega a aumen- 
tar de dez a trinta vezes, dependendo 
do modelo usado. 

Quase todos os micros dispoem de 
compiladores para a linguagem BASC 
6 o caso das linhas Apple, TRS-80 e 
TRS-Color, por exemplo. O Spectrum 
e o ZX-81 , por^m, nao contam com es- 
se tipo de recurso. Para 3 linha MSX, 
o compilador BASIC 6 encontrado ape- 
nas no exterior. 



pista {runway, tamb6m em graus) e mo- 
dificada pelas linhas 2060 a 2080, c o no- 
vo valor da distancia e impresso pela li- 
nha 2090. 

A linha 2190 verifica se o horizonte 
deve ser modificado, enquanto as li- 
nhas 2100 a 21 70 desenham novo ho- 
rizonte artificial no mostrador corres- 
pondente. O horizonte verdadeiro e de- 
senhado pelas linhas 2200 a 2280, 

A nova posigao da pista e calculada 
pelas linhas 2290 a 2360. A linha 2350 
verifica se a pista pode ser desenhada na 
tela (a pista aumenta de tamanho a me- 
dida que o aviao se aproxima). A linha 
2 1 80 apaga a versao antiga quando uma 
nova e desenhada. 

Todas essas modificagoes foram fei- 
tas de maneira invisivel, em uma pagina 
oculta da tela. A linha 2370 transfere 
desenho para a tela usando PCOFY, de 
modo que todas as alteragoes parecem 
ocorrer simultaneamente. 
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FUNCO 





Calcular juros compostos? Encontrar o 
cubo de um numero? Transformar 
letrss maiusculas em minusculas? Tudo 
jsso se toma simples quando 
se trabaiha com funcoes sob encomenda. 




F 



Um compulador e capaz de resolver 
problemas materadticos myito mais ra- 
pidamente do que qualquer pessoa. En- 
tretanto, eie so faz o que for programa- 
do para fazer, seja por voce, seja por um 
programa pronto, carregado previamen- 
te na maquina. 

A linguagem mais utilizada para pro- 
gramatao de microcomputadores e o 
BASIC. Em sua maioria, os micros pes- 
soais passam a aceitar comandos nessa 
linguagem assim que sao ligados, 

O interpretador BASIC de seu com- 
putadcr coma com uma serie de fungoes 
matematicas padronizadas: com elas, o 
programador pode solicitar calcuios ma- 
tematicos complexos, como raiz quadra- 
da, iogaritmo, funfoes trigonometricas 
e outros. Cada uma dessas fun^joes ^ de- 
finida de tal modo que, assim que reco- 
nhece a fungao, o interpretador toma o 
valor fomecido para cla pelo programa- 
dor e executa a operagao apropriada. O 
nome dado as funcoes evoca as opera- 
goes que elas realizam: por exemplo, 
SQR {square root, ou raiz quadrada, em 
ingles), LOG (Iogaritmo), COS (cosse- 
no) etc. 



FUNCdES BASICAS 



Tudo corre bem quando as fun9oes 
que se pretende usar em um programa 
existem no BASIC do computador. Mui- 
tas fun?6es matemdticas e n3o matema- 
ticas, por^m, nao fazem parte do BASIC 
padrao. Por exemplo, nao ha nenhuma 
fun<;ao chamada CUBE, que seria mui- 
to litil para calcular auiomaticamente o 
cubo de um numero (n x n x n). 

Mas nem tudo esta perdido: feliz- 
mente hd alternativas para quando o 
programador precisar de uma funfao 
nao dispom'vel no BASIC. A prlmeira 
seria evitar o emprego de funcoes no 
programa: cada vez que um calculo de 
cubo precisa ser reaJizado, por exemplo, 
pode-se colocar a expressao completa 
dentro de um comando LET. Se isso 
nao for possivel — pois o programa fi- 
caria desnecessariamente longo — , 
pode-se programar uma sub-rotina, que 
efetuara os calcuios necessarios. 

A solugao mais elegante, entretanto, 
consiste em um recurso de muitos interpre- 
tadores BASIC, que pCTmite a definii^ao de 



/undoes do usudrio. Estas agem como fun- 
coes de encomenda, que atuam apenas 
dentro do programa no qual foram defi- 
nidas. Essa opgao existe para os usuarios 
de computadores das linhas Spectrum, 
TRS-80 (com BASIC nivel III), TRS- 
Color. MSX. Apple II e TK-2000. Os mi- 
cros das linhas ZX-81 e TRS-80 (baseado 
em Fita cassete) nao oferecem essa possi- 
bilidade: Em alguns micros, o recurso de 
definicao de fungoes e bastante poderoso; 
em outros, como veremos, e mais limitado. 
As funcoes definidas pelo usudrio 
dao ao programador a capacidade de 
ajustar o BASIC do computador con- 
forme as necessidades de um programa 
em particular. Os comandos usados pa- 
ra definir uma funfao diferem ligeira- 
mente de computador para computador, 
mas seguem em geral esta forma b^ica: 

DEF FN a (x) - expressao 

Aqui, a letra a e o nome da fun^ao 
(necessario para quando voce quiser uti- 
lizar essa fun?ao em outro ponto do pro- 
grama, "chamando-a" pela mesma le- 
tra). O X entre parenteses ^ o parame- 
tro da fungao, ou seja, o valor a ser for- 



FUNCOES EM BASIC 



COMO DEFINIR SUAS 



PROPRIAS FUNCOES 



QUANTOS PARAMETROS? 



COMO USAR UMA FUNCAO 



funcOes para MANIPUL ACAO 

ALFANUMERICA 

UMA FUNCAO PARA DESENHAR 

ELIPSES 
FUNCOES MAIS RENDOSAS 




necido para que a fun^ao efetue os cal- 
culos. Alguns computadores (Apple, 
TK-2000, MSX e TRS-80) permitem 
dois ou mais parametros, enquanto ou- 
tros (TRS-Color), apenas um. 

Para entender o princfpio geral de de- 
fini?ao e utiliza^ao de uma fungao em 
um programa, digite e execute o exem- 
plo a seguir. O programa calcula o cu- 
bo de um mimero qualquer: 



10 CLS 

20 PHINT "NUMEBO" ."CUBO- 

30 FOR a=l TO 20 

40 PHINT a, FN c(a) 

50 NEXT a 

60 DEF FN c{x)-x«x*x 

EiDr)^a][^ 

10 DEF FHC(X)-X*X*X 

30 PRINT 'NUMEBO'.-CUBO- 

40 FOR A-1 TO 13 

50 PBINT A,FNC(A) 

60 NEXT 

Uma observa^ao interessante 6 que, 
no case do Spectrum, o computador 



nunca chega a atingir a linha 60, onde 
a fungao FNC e definida. Dessa forma, 
a declaragao DEF FN funciona como 
uma linha DATA. Nos clpmais compu- 
tadores, a (inha contendo o DEF FN de- 
ve ser encontrada pelo programa antes 
que a funfao correspondente seja cha- 
mada. Assim, e convenieme coloca-la 
logo no inicio do programa. 

Entretanto, os modelos da linha 
Spectrum procuram automaticamente 
por linhas contendo DEF FN, toda vez 
que uma fun92o € invocada. Por isso, 
costuma-se agrupar todos os DEF FN 
no comedo do programa, de modo a dar 
a este maior velocldade de execu^ao. 



COMO CHAMAR UMA FUNCAO 



Para executar uma fun^ao, voce tern 
apenas que digitar seu nome (ou seja, a 
letra usada em sua definigSo) logo ap6s 
a expressao FN, e no ponto do progra- 
ma escolhido para utiliza^ao do resul- 
tado do cdlculo elaborado por essa fun- 
930, Isso pode ser visto na linha 40 do 
programa para o Spectrum, e na linha 



50 do programa para os demais compu- 
tadores. No exemplo dado, o programa 
utiliza FNC{A), em vez de FNC(X), co- 
mo aparece na definigao (linha 60 para 
o Spectrum, e linha 10 para os demais). 
No caso, A (ou a para o Spectrum) e o 
valor do mimero cu)0 eubo queremos 
obter, ou seja, A e parametro real da 
fun^ao. Como a variavel x, usada na 
DEF FN serve apenas para espccificar 
como o parSmetro seri usado na expres- 
sao de cdlculo, ela e chamada pseudo- 
parameiro. 

Portanto, mcsmo que o parSmetro 
seja diferente a cada chamada da fun- 
Qao FNC em um programa, a f6rmula 
dada permitiri que se fafa o calculo cor- 
reto e que o resultado seja retornado ao 
programa exatamente como as outras 
fun(;6es pre-programadas fazem (SQR, 
COS, LOG etc.). Assim, a fun^ao csta- 
belecida pelo usu^rto pode ser tratada 
como se fosse uma especie de abrevia- 
gao para a f6rmula de cilculo especifi- 
cada em sua definJ?ao. 

No caso de uma fungao tao simples 
como a do exemplo, voce poderia pcn- 
sar que seria mais rapido usar a expres- 
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sao X X X X X do que definir a fumjao 
so para poder usd-la depois. De fato, es- 
te e apenas urn exemplo. O uso de fun- 
?oes definidas peio usu^rio so sera ren- 
tavel quando elas forem chamadas em 
varies pontos do programa, de preferen- 
cia com parametros que variem. Ai, a 
economia e realmente not^vel. Alem dis- 
so, DEF FN e capaz de trabathar com 
expressoes matemiticas muito mais Ion- 
gas e complexas do que esta. 

Uma boa maneira de aprender como 
funciona DEF FN em urn programa 6 
experimentar com o exemplo citado, 
mudando a defini^ao da fungao de di- 
versas formas (dividindo o parametro 
por 10, por 2000, calculando a raiz qua- 
drada etc.). Para verificar se a fun9ao 
definida por voce caJcuIou corretamen- 
te, compare os resultados obtidos por 
ela com os obtidos pelo uso da mesma 
f6rmula, em modo direto. 



NOME DAS FUNCOES 



Diversas fungoes podem ser definidas 
dentro de urn mesmo programa. Cada 
uma delas deve ter um nome, que varia 
com o computador. Esse nome e geral- 
mente um caractere (ou cadeia de carac- 
leres) colocado imedialamente apds o 
DEF FN, Os micros da linha Spectrum 
so admitem uma letra. Os demais micros 
podem usar ate dois caracteres. Desse 
modo, o nome de uma fun^ao enfrenta 
as mesmas restrigoes que um nome de 
variavel: o primeiro caractere deve ser 
obrigatoriamente uma letra, e o segun- 
do, uma ietra ou um niiraero; al6m dis- 
so, nao podem ser utiltzados caracteres 
especiais. Se forem usadas mais de duas 
letras no nome de uma fungao, o Spec- 
trum reconhecera aperkas as duas primei- 
ras (no exemplo dado, DEF FNCUBO 
seri aceita equivalendo a DEF FNCU, 
e nao a DEF FNC). 



DEFINA OS PARAMETROS 



O proximo passo na defini^ao de 
uma fun^ao consiste em adicionar os pa- 




rametros. Estes sao formados pelos va- 
lores entre par^nteses que devem ser for- 
necidos para que a funcao efetue o cdl- 
culo. Embora possam ser parecidos com 
variiveis dentro do DEF FN, eles sao, 
de fato, apenas pseudovariiveis, que va- 
lem s5 para a defmipao. 

Tudo que os parametros fazem ^ 
"dizer" ao computador qual o niimero 
de valores a serem usados no calcuto. 
Em outras palavras, se voce comepar 
uma definifao deste modo: 

DEF FNE (A.B.C) = 
entao o computador esperara que o pro- 
grama fornega tres mimeros toda vez 
que FNE for chamada {um erro de sin- 
taxe ocorrera na maioria dos micros, se 
um niimero errado de parametros for 
fornecido ao se chamar a fungao). 
Quando a fungao for chamada, os tres 
parametros do exemplo podem ser ofe- 
recidos coino constantes ou como va- 
riaveis. 

Embora os parametros usados na 
DEF FN nao sejam varidveis, voce po- 
de encara-los como tal, ou seja, como 
uma especie de variivel local, que vale 
apenas na definicao. Eles devem ocor- 
rer na expressao apds o sinal de igual- 
dade, com o nome com que foram indi- 
cados entre par§nleses. Exemplo: 

DEF FNE (A,B,C)=10 + A * B / C 

Os parametros podem ser variSveis nu- 
mericas ou alfanum^ricas. Mais adiante, 
veremos algumas aplicag oes para funijoes 
de tratamento de cadeias alfanum^ricas. 

Ja que nao sao a mesma coisa, para- 
metros e varidveis podem ter os mesmos 
nomes, sem que isso impUque em imer- 
ferencias dos primeiros sobre as segun- 
das e vice-versa. 



QUANTOS PARAMETROS > 



A declaraijao DEF FN nos micros das 
linhas Apple, TK-2000 e TRS-Color ^ 
menos versatil do que nos demais com- 
putadores, pois permite apenas um pa- 
rametro. Todos OS outros valores pre- 
sentes na expressao aritmetica restante 
precisam ser constantes. 

Suponhamos que voce queira multi- 
plicar um valor qualquer por 9.81, co- 
mo parte da fungao que esta definindo. 
O valor a ser multiplicado podera rece- 
ber nome do unico parlmetro dispo- 
nivel, por exemplo, A; a expressao de 
defini(;ao da fun^ao sera 9.81 x A. 

Os outros tipos de computador per- 
mitem o uso de quanios parametros fo- 
rem necessarios, desde que a definiipao 
compieta da funtjao esteja contida em 
uma unica linha. Quando a fungao for 
chamada, deve-se especificar um niime- 
ro iguai de parametros, como foi esta- 
beiecido na definigao, mesmo que haja 
alguns parametros a mais que nao fo- 
ram usados na expressao de definicao. 

Agora, se voccS quiser verificar esse 
fato na pratica, digite NEW e experi- 
mente colocar o programa a seguir (nao 
ha uma versao para os micros das linhas 
TRS-Color, Apple e TK-2000): 



am 



to DEF FN fl(3,b,c,d.e, f )=a*a* 

b 

20 PRINT "tntroduy.a dois nume 

r os" 

3 INPUT a.b 

40 PRINT FN fl(a,b) 

Quando voce tentar executar o pro- 
grama acima, verificara que ele acusa 
um erro na linha 40, Experimente entao 
substitui-ta por: 

4Q PRINT FNa ta,b,0. 

O programa passara entao a funcio- 
nar, embora ele nao use nenhuma infor- 
mapao adicional. 





POR QUE USAR UMA FUNCAO' 



A vantagem das fun^oes em relagao 
ks expressoes torna-se evidente quando 
e preciso utilizar uma mesma expressao 
em varies pontos de um programa. Nes- 
te caso, emprego de fun^oes pre- 
definidas economiza memdria e tempo 
de digitagao e de execu^ao. 

A func:ao definida pelo usuar io tam- 
bem e litil quando a expressao e muito 
grande e passive! de erros de digitagao. 

A seguir, apresentamos um exempio 
de fungao matematica que sc pode usar 
repetidas vezes em um programa. Ela ar- 
redonda um niimero qualquer, forneci- 
do por meio de um INPUT, fixando o 
niimero desejado de casas decimais. Co- 
mo essa fun?ao requer dais parametros, 
deixamos de oferecer uma versao para 
o Apple, o TK-20O0 e o TRS-Color: 



10 FOE g-0 TO I STEP 
20 PRINT ' ' ' "TnT.roduza o nunie 
ro a Arredondar e duantae cas 
aa decimaia voce deseja" ' ' " 
(PrcBsione <ENTEn> a cada v«z 
)' 

30 INPUT numGr o ,ra aaa 
40 PRINT '''numero;" com "rca 
eas;" cagaa p.' " , FN Rfnutnero, 
casas) 

50 PAUSE 100: NEXT g 
60 DEF FN H(a,b)=INT (a*10"b+ 
0.5)/10^b 



10 FOR G-0 TO 1 STEP 

20 PRINT : PRINT: PRINT 

25 PRINT "INTR0DU2A NUMERO A 

AHREDONDAR E QUANTAS CASAS 

DECIMAIS VOCE DESEJA" 

30 INPUT N.CD 

40 PRINT: PRINT: PRINT Ni" COM " ; 

CD;" CASAS - "iFNRtN.CD) 

50 NEXT G 

A fungao FNR utiliza uma segunda 
fungao em sua definigao: e a fungao 
INT, que obtem a parte inteira de qual- 
quer numero. O exempio mostra tam- 
bem outro aspecto intcressante nas fun- 
g6es predefinidas: elas podem abrigar 
em seu interior outras fungoes do BA- 
SIC, bem como fun?6es definidas pelo 
usuario, A linica Ilmiiagao, evidcnte- 
mente, e que nao se pode chamar a pr6- 
pria fungao que estd sendo definida. 



120 R-Rl :PSET(K+127,95-t-FNY(K) ,2 

) :PSET(K+127,96-FN5f (K) ,2) 

130 IF B*R2*H2<B*K*K/A THEN 150 

140 H-R2:PSET(K+127,StS + FNYCK) .3 

) :PSET(K+i27,96-FNY{K) ,2} 

150 NEXT 

160 GOTO 160 



HDE] 
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5 DEF FNRtA.B] 
+ 0.5)/10~B 



INT (A * 10-B 



Embora o TRS-Color, o Apple II e 
o TK-2000 aceitem apenas fungoes de- 
finidas com um parametro, nao e difi- 
cil fazer bom uso desse recurso mais li- 
mitado. Digite e execute o programa a 
seguir, que define e aplica uma equagao 
para tragar uma eJlpse. (Ao ser execu- 
tado, programa solicitari alguns va- 
lores iniciais, como as constantes A e B, 
e OS dois raios da elipse.) 

D 

10 DEF FNY(X)-SQHCB*R*R-B*X*X/A 

) 

20 PMODE 3,1 

30 PCLS 

4 CLS: INPUT" INTRODUZA AS CONST 
ANTES A E B " jA,B 

50 INPUT "INTRODUZA OS DOIS RAI 

05 '';H1.H2 

60 H=Hl:yi-FNy{0) :R-R2:Y2-FNY(0 

) 

70 IF Y2>Y1 THEN Y1-Y2 

80 IF Y1>9S THEN R1»=R1*95/Y1 :R2 

-R2*95/Y1 

90 SCREEN 1,0 

100 FOR K--127 TO 126 

110 IF B«R1*R1<B*K*K/A THEN 130 



10 DEF FNY(X)-SQR(a*R*R-B*X*X/ 

A) 
20 HGR 
40 HOME: INPUT "INTRODUZA AS CO 

NSTANTES A E B:'':A,B 
5Q INPUT "INTRODUZA OS DOIS RA 

lOS: " ;R1 .R2 
60 LET H-Rl : Yl-FNY(O) : R-a2 

: Y2=FNY(0> 
70 IF Y2>Y1 THEN yi=Y2 
60 IF Yi>95 THEN R1=R1*95/Y1 : 

R2=RZ*95/¥2 
100 FOR K=-1Z7 TO 128 
110 IF {B*R1*H1)< (B*K*K/A) THEN 

130 
115 HCOLOR 3 
120 R=R1 : HPLOT K+127,95 + FNY 

tK) : HPLOT K-t-I27,96 - FNY 

(K) 
130 IF (B*a2*H2K(B*K*K/A) THEN 

150 
135 HCOLOR 5 
140 R=R2 : HPLOT K+127,95 + FNY 

<K) : HPLOT K+127,96 - FNY 

(K) 
150 NEXT 

O programs usa comandos graficos 
para desenhar a elipse. A fungao defi- 
nida na Itnha 10 e usada para calcular 
as coordenadas de cada ponto da elip- 
se. Ela usa internamente uma fungao 
matematica prederinida do BASIC; a 
fungao de raiz quadrada (SQR). 



am 



Caso voce queira converter esse pro- 
grama para outros micros, eis aqui a 
equagao das coordenadas da elipse: 
X . X , Y . Y 



= R . R 



A B 

Xe Y saoascoordenadas horizontal ever- 
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tical de cada ponto da elipse, R e o seu 
raio (na rcalidade o programa usa dois 
valores de raio, Rl e R2, para cada elip- 
se), e A e B sao constantes que definem 
o formato da figura. 



f^W 



Alguns microcompiitadorcs, como 
por exemplo o Spectrum, o MSX e o 
TRS-80, permitem ainda a utiliza?ao de 
variiveis alfanumericas em f undoes de- 
finidas pelo usudrio. 

Se, mesmo depois de tudo o que foi 
dito, voce ainda tern diividas a respeito 
da ulilidade de uma fungao que mani- 
pula cadeias alfanumericas, digite e exe- 
cute o seguinte programa: 



10 PRINT "Introdusa aeu nome" 

2 INPUT n$ 

30 TF CODE nS>90 THEN LET nS 

-FN uS[n$) 

4 PRtrJT ■ ' "Ola," inSi " - eu n 

ao sou eaperto ?" 

90 DEF FN u$(x3J=CHR$ (CODE x 

S-.l?)+xS(2 TO ) 



am 



5 DEF FNUSCXS) - CHR$ (ASC<X3) 

- 32J+MIDS(X5.2) 

10 INPUT "INTRODUZA SEU PfilMEI 

RO NOME-.NS 

30 IF ASC(N$)>90 THEN NS - FNUS 

(NS) 

40 PHINTrPftlNT "OLA, ":NSl", EU 
NAO SOU ESPERTO ?" 

Observe que esse programa permite 
inicialmente que voce emre um nome; 
em seguida, ele chama uma fun?ao de- 
finida pelo usuario; essa funfao impri- 
mlra sucessivamente a primeira letra em 



maiuscula e as restantes em caracteres 
minusculos. 

Funfoes alfanumericas como essa 
trabalham da mesma maneira que fun- 
coes puramente maiematicas. Seus no- 
mes, por^m, sao diferentes. 

diversamente das fungoes matemdli- 
cas, esses nomes devem center sempre 
uma letra seguida de um cifrao, exata- 
meme como acontece com os nomes de 
variaveis alfanumericas. 

Como se pode perceber pelo exem- 
plo, a fungao pode ter paramctros alfa- 
numericos, que sao usados da mesma 
forma que parametros numericos. 

Um outro programa exemplifica me- 
Ihor este ponto. Trata-sc de uma rotina 
que emprega uma fungao alfanumerica 
para abrilhantar as cadeias entradas por 
meio de comandos INPUT: 



10 FOR f=0 TO 1 STEP 

2 INPUT "Introduza o tituln 

";jS 



30 
35 
40 
50 
60 



■ + iS) 



CLS 

pa TNT FN t$C' 

PAUSE 150 

NEXT f 

DEF FN tS(xS)=CHBS 18+CHBS 

1+CHRS ]6+CHR$ 2+"***««*«**«« 

**********«*«««******" +{:HR$ 

23+CHRS (16-l,EN x$/2 ) +xS+CHRS 

23+CHSS 31. + "**************'''* 
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5 DEF FNTSCXS) - STRINGS C16-LEN 

(XSl/2)+XS+STHING$a6-LEN tXS) 

/2) 

10 FOR F-0 TO 1 STEP 

20 INPUT "INTRODUZA O TITULO "; 

1$ ^ 

30 CLS 

40 FOR I-l TO 1000:NEXT I 



50 NEXT F 

Esse programa apresenta algurnas 
particularidades que devem ser especial- 
mente consideradas . 

Note, por exemplo, o valor um pou- 
co estranho do comando STEP na linha 
10. Na verdade, que ele faz e causar 
um la?o de repetivao infmita, snforman- 
do diretamente ao computador que o in- 
cremento do comando FOR e 0; isso 
quer dizer que ele nunca ira alcanifar o 
valor final 1 . 

Embora neste caso seja mais fdcil re- 
correr a um comando GOTO, e conve- 
niente que voce saiba que programas 
melhor estruturados evitam o GOTO 
para tras, o que seria considerado ma 
pratica de programagao. 



FUNCOES RENDOSAS 



Eis aqui outro exemplo do comando 
DEF FN em acao. IVata-se de um pro- 
grama relativamente simples, que pode 
ser empregado em larefas como calcular 
OS juros de sua caderneia de poupan^a. 

Ele define uma fungao que calcula ri- 
gorosamente o valor a ser atingido por 
um investimento ap6s um dado perio- 
do de tempo, e levando em considera- 
gao OS juros pagos por ano. 



10 DEF FN c[t)=rNT (AM* E (R/ 

100 + n -T)*100)/100 

20 INPUT "Quantos cruzados? " 

;AM 

30 INPUT "Taxfl de jurofl (I)? 

" :H 

40 INPUT "No. de unvdadea de 

tempo? " ; T 

50 PRINT AT 9,0 ; "Quantxa t.ota 






L ..^ 



1 dpDfl A opf>racao= " rTAR 1 ? ; 
FN C(T) 

60 PBINT TNVEBSE 1;AT 20.1:" 

OiJdlquer t.erla para recomecar 



70 PAUSE : CLS 



GOTO 20 



DEif)^a][^ 

10 DEF FN C{T) -INTfAM* ( (1+R/lOO 

) -T)*100)/100 

20 INPUT"QUANTOS CHUZADOS " ; AM 

30 INPUT"TAXA DE JUROS (t) ";R 

40 INPUT'QUANTAS UNIDADES DE TE 

MPO " ; T 

50 PRINT"QUANTIA TOTAL APOS APL 

ICACAO =" ,FNC(T) 

60 PRINT :PHINT'*QUALOUER TECLA P 

ARA RECOMECAR" 

70 AS = INKEYS:IF A$-''" THEN 70 

80 GOTO 20 

Para o programa funcionar no 
Apple e no TK-2000, substitua a 
liiiha 70 por; 

70 GET AS 

O programa funciona de forma 
muito simples. Definida a fun?ao, 
OS valores de entrada sao coloca- 
dos por meio dc uma serie de co- 
mandos INPUT, de modo que o 
usuario possa fornecer ao compu- 
tador OS deialhes da poupanca. 

As variaveis que o programa usa sao: 
T, parao pen'odo de tempo em questao; 
AM, para a quantia inicial em dinheiro 
a ser aplicada; e R, para a taxa de ju- 
ros, em % ao ano. 

O linico parametro da funpao FNC 
e T. Isso pode ser percebido faciJmente 
a partir da prdpria defmigao da fun^ao, 
na linha 10. Entretanto, a expressao ma- 
tematica na mesma linha contem tres va- 
riaveis, que sao AM, R e T — e apenas 
uma delas e o parametro. Esta e uma ca- 
racierfstica muito util das fungoes defi- 
nidas pelo usuario. Ela permite que se 
misturem parametros e variaveis na mes- 
ma expressao, evitando que seja neces- 
sirio definir todos os elementos como 
parametros. 

Esta e uma maneira de se contomar 
a limita^ao de um parametro por fun- 
^ao nos microcomutadores das linhas 
TRS-Color, Apple e TK-2000. 

Ja no MSX e possivel ate mesmo de- 
finir uma fungao inleiramente sem pa- 
rametros (neste case, nao coloque pa- 
renteses, nem em DEF FN, nem na cha- 
mada a fungao), 

Os usuarios do Spectrum podem es- 
tranhar o fato de que a expressao na li- 
nha 10 usa variaveis ainda nao defini- 
das, o que deveria provocar uma men- 
sagcm deerro, Entretanto, como foi di- 
to linhas atras, no Spectrum o processo 
funciona de modo diferente; neste ca- 




.so, a linha 10 e procurada depots que as 
variaveis foram definidas pelos coman- 
dos INPUT do programa. 

Os juros calculados aqui sao juros 
compostos — isso quer dizer que o va- 
lor ganho em um pen'odo e usado para 
calcular os juros do periodo seguinie 
(juros sobre juros). 



OPERACOES AftlTMETICAS 



Isso e levado em considera^ao auto- 
maticameme peia formula da funi^ao, 
simplificando o calculo dos numeros 
procurados. Veja a seguir como se pro- 
cessa esse cdlctjlo na prdtica. 

Se, por exemplo, a taxa de juros for 
10% apos um periodo de tempo, o pro- 
grama calculard o valor original mais 
0. 1 multiplicado por esse valor. Voce 
pode ver isto na expressao contida na 
fun^ao, como R/lOO-t-L Assim, no 
exemplo dos 10%, o resuttado ap6s um 
periodo de aplicatjao ^ de 1 . 1 vezes o va- 



V-V 



lor original aplicado. Ap6s dols pen'o- 
dos, sera 1.1 vezes o novo valor, e as- 
sim por diante. Em T periodos, isso da- 
ra 1 . 1 elevado a T. Esta e a segunda par- 
te da funqao, que toma a forma com- 
pleia vista no programa, ou seja, 
(R/IOO+IJT. A parte restanie da ex- 
pressao muitiplica islo pelo valor do 
principal (AM) e arredonda o resultado 
final para duas casas decimals, muttipli- 
cando por lOO, tomando o seu INTei- 
ro, e dividindo por 100. 

Tudo se resume, portanto, a simples 
operacoes aritmeticas. 

Voce poderd tambem definir fun- 
<;6es irigonometricas que nao exisiem na 
maioria dos interpretadores BASIC, co- 
mo arco seno e arco co-seno. 

ASN(X)-ATN tX/SQR(-X*X+l) ) 
ACS CX) --ATN (X/SQR (-X* 
X+1) )+1.570e 

Agora, procure treinar, "invcntan- 
do" atgumas fun^oes novas paraoutras 
areas da matemdtica. 
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^■■r 



UM EDITOR DE 
TEXIOS (3) 



A procura da palavra certa foi sempre 
urn elemento estimulante para 
OS grandes escritores. Esta Itcao 
ensina como lazer isso com a 
prosaica ajuda de urn computador. 



As duas primeiras partes desta ligao 
apresemaram as fungoes basicas de edi- 
gao na tela, que permitem criar textos 
e armazena-los . A terceira e ultima parte 
fornece as rotinas de ordena?ao, procu- 
ra de palavras, impressao e uso de 
"mascara de texto". 



M 



ORDENACAO 



Baseada na rotina de troca retarda- 
da, a rotina de ordena?ao i usada para 
colocar linhas em ordem alfabetica. Ela 
e de grande uiilidade para ordenar no- 
mes ou outros dados. 



PROCURA DE PALAVRAS 



Essa rotina "varre" o texto em bus- 
ca de uma determinada palavra ou frag- 
mento de palavra. Ela deve ser ativada 
dentro do modo editor. A procura co- 
mega no ponto onde o marcador estA lo- 
calizado. Por isso, certifique-se de que 
ele esta na posigao mais adequada para 
dar inicio k busca. 

Ha dois motives basicos para que 
nao se ache a palavra procurada; ou eia 
foi digitada de modo errado ou est^ di- 
vidida em duas linhas. 

Quando a palavra for encontrada, o 
programa continuara no modo editor e 
a linha podera ser copiada imediatamen- 
te na ^ea de trabalho. 



IMPRESSAO 



A rotina de impressao possibilita o 
envio do texto gerado para a impresso- 
ra. Ela apresenta algumas caracteristi- 
cas especiais, incluindo uma rotina pa- 
ra comrolar o formato das cartas e ou- 
tra para uso do texto com "miscara", 
permiiindo que voce adicione partes va- 
riaveis ao texto, 

Se a sua impressora trabaiha com co- 
mandos nao padronizados, pode ser ne- 
cessario algum ajuste no programa, 
Preste panicular atengao aos caracteres 
que provocam avan?o de linha {line- 
feed, ou LF) e retorno do carro (carria- 
ge return, ou CR). O programa usa o ca- 
ractere ASCII 13 para ambas as fun^Ses. 



FORMATACAO 



Pouco adiantaria poder escrever e 
corrigir um texto se nSo fosse possivel 
imprimi-lo na forma desejada. Pode ser 
necessdrio, por exemplo, colocar o ca- 
begalho da pagina no centro de uma li- 
nha, seguida por outras linhas em bran- 
co. Isso se torna fdcil quando se usam 
OS comandos de formatagao. Outro 
exemplo comum e quando se quer co- 
locar a data ou o enderego do remeten- 
te na mar gem direita e o enderefo do 
destinatirio k esquerda. 

Os simbolos empregados na rotina 
de formata?ao sao os mesmos do pro- 
grama do artigo Escreva Cartas sem 
Esforgo (pigina 17). Lembre-se de que 
eles devem aparecer sempre no inicio 
da linha. Esses simbolos sSo os seguin- 
tes: o sustenido (" # "), que coloca a li- 
nha de texto na margem direita da pi- 
gina (se existir s6 uma linha com essa 
marca^ ela sera colocada com o liltimo 
caractere na tiltima posigao da linha; se 
houver mais linhas, o programa procu- 
rara a mais longa e alinhard as outras 
com base nesia); o ampersand ("&"), 
que faz o texto que o segue ser impres- 
so no inicio da linha seguinte (por exem- 
plo, ele pode ser usado em cartas, para 
posicionar cada linha do enderego do 
destinatario); o cifrao ("$"), que, al6m 
de passar o texto para outra linha, pro- 
voca um recuo na primeira palavra da 
nova linha; o asterisco ("*"), que co- 
loca o texto no centro da linha. Ao usar 
essa rotina, tenha cuidado com linhas 
de texto muito longas. Estas devem ter, 
no mdximo, a mesma largura da linha 
de impressao. 



COMO USAR "MASCARA DE TEXTO' 



Al^m dos comandos de formatagao, 
o programa dispoe de outro recurso 
(inexistente no do Spectrum) com o qual 
se pode criar uma carta padrao e deixar 
que algumas partes especificas sejam va- 
ridveis. Esse recurso € o "simbolo de 
mascara". Ele opera do seguinte modo: 
quando voce quiser inserir uma frase no 
texto, coloque um par de colchetes 
(")[") na posigao escolhida. No momen- 




W^mCOES lf\ 



ORDENACAO 



A ARTE DE PROCURAR 



PALAVRAS 



IMPRESSAO 



CARTA PADRAO 



FORMATACAO 



CENTRAR TEXTO 



AJUSTAR A DIREITA 



AJUSTAR A ESQUERDA 



ESPACAMENTO 




to da impressao, esse sinal serA substi- 
tul'do pelo bloco de texto apropriado. 
Dessa maneira, voce pode comefar a 
carta com um "Caro ][" e so digitar o 
nome do destinati'io quando Ihe convier. 

O "simbolo de mascara" pode ser 
colocado em qualquer posi(;ao no tex- 
to, menos depois de um susteiiido ( #). 
^ que o programa mede primeiro o ta- 
niauho de cada linlia que vai ser posi- 
cionada k direita, determinando a seguir 
onde deve come?ar a impressao dessas 
linhas. Come essa operagao e feita an- 
tes de se carregar os blocos variaveis, 
sempre surge algum problema, 

O texto que subsiitui os colchetes e 
digitado diretamente do teclado na bo- 
ra da impressao, ou lido de um arquivo 
criado pelo proprio programa. 

O ma-xinio de caracieres admit ido por 
linha no TRS-Color e 32. No MSX, es- 
se numero sobe para 39 e, no Apple, pa- 
ra 40. O texto sera quebrado, assim, em 
unidades de 32 a 40 caracteres, depen- 
dendo da mdquina. Cada par de colche- 
tes permite a entrada de, no maximo, 
250 caracteres. 

Se OS blocos varidveis de texto forem 
carregados de um arquivo, o computa- 
dor se encarregara de colocar os dados 
nos seus devidos lugares. Culde apenas 
para que os dados estejam na ordem 
correta e para que haja informatpao pa- 
ra todos OS pares de colchetes. 



REH 
LET 
LET 
FOR 
LET 
IF 



iinpr imi r 
tr.= (pl-ll)/2 
d = 

n=t+3 TO b-3 
a$=t$Cn) 
LEN aS=0 THEN 



4000 

40X0 

4020 

40Z5 

4010 

4032 IF LEN aS=0 THEN NEXT n: 

RETURN 

4034 IF aSd.EN aS-DOCHRS .32 T 
HEN GOTO 40 37 

4035 IF aStr.EN a$)-CHHS 32 
LET aS^a$( TO LEN aS-V) : 

40.32 
4037 LET 1=LEN aS 
4040 LET c=0 

4050 IF c=) THEN NEXT n: 
T (:HR$ 13: RETliHN 
4060 LET c=c+l ; LET d=d+l 
>J THEN GOTO 4100 
40 70 IF >jS(c)="|" then goto 4.5 
00 



THEN 
CJOTO 



LPBIN 



IF c 



4 080 tF aS{c:)="*" THEN GOTO 4 7 



4085 IF aSCc:)="s." THEN GOTO 48 

.SO 

40y0 IF aS(c)-"S" THEN LPRINT 

CHRS 13;C:HR$ :3;: LET d=0: GOTO 

4 90 
4! 00 LET n=n+: : IF n>-b- 1 THEN 

LFT 1=LEN aS: GOTO 411] 
4105 IF tS(n,lJ="S" OR tS(ft.I)- 
"t" OR t.$(n, 1)="*- OH t$(n.])=" 
&" THEN GOTO 4110 
4 1.06 LET aS=s$+t.S(n) 
4 10/ TF aSfLEN dS-1)<>CHRS 32 T 
Ht.N GOTO 41 OO 
4 108 :F s$(LEN aS)=CHBS .32 THEN 

LF:T a$=a$( TO LEN a$-l 1 
4 109 GOTO 4 L0 7 

4 J JO LET n-n-l: LET )-LEN a$ 
41] 1 [F a5[c)=GHR$ 32 THEN GOT 
O 4800 

4 M 2 LPRtNT i3S(c) ; 
A\ib IF d>l 1 THEN LET d=0 
4 120 GOTO 4 05 

45U0 LET nl = 0: LET r.a = ll: LET b 
e = 

4510 LET le=L£N a$~l: IF 1h>U 
THEN PRINT FLASH 1;"ERH0 NO F 
ORMATO - ENDERECO MUITOLONGO" : 
SOUND 2,10: HETURN 
4520 IF le>be THEN LET be=le 
4530 LET nl=nl+] ; LET n=n+l : LE 
T aS=tSCn) 

4532 TF LEN a3=0 THEN NEXT n: 
RETURN 

4 5 35 IF aS(LEN aS)=CHB$ 32 THEN 
LET a5=flS( TO LEN a$-l): GOTO 

4.5.32 
453R IF as (I )=■'§" THEN GOTO 45 
10 
4540 LET n= 



3 



45S0 LET Lr=tt+ll-be: FOfl g=] T 
nl : FOR h"3 TO tr: LPRTNT CHH 
a 32 i: NEXT h: LET n=n+l : LET a 
S=r.S[n) 

4552 IF LEN aS=0 THEN NEXT n: 
RETURN 

4555 TF a$(LEN a$}=CHR$ 32 THEN 
LET aS-a$( TO LEN aS") ) ; GOTO 

4552 
4.S5a LPHINT aS(2 TO ): NEXT 9 
4560 NEXT n: RETURN 
4 700 LET 1 a= {ll-D /2 + r.t : IF La< 
tt THEN LPRTNT CHR$ 13: PRINT 

FLASH 1;"EHR0 NO FOKMATO - IMP 
OSSTVEL CENTHALIZAR" : SOUND 
2,10: RETURN 

4710 LPRINT CHRS 13;: FOR m- 1 T 
r.a: LPRTNT CHRS .32:: NEXT m: 
LPRINT aS(2 TO );: LET d=0 : NEX 
T n: RETURN 
4800 LET 3l = U-ri-l: LET cc-'c+l: 
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B660 NEXT j: TF uOk THEN LET 
W$ = r.SCk): LET r.S(k)=t.S(l) : LET 
T.5Cl)=w$ 
B67 NEXT ] 

8900 FOR n=3S TO b: LET tS(n)=t 
S(n+1) : NEXT n 

8910 FOB n=aG-l TO b: LET tS (n) 
-tS(n+l): NEXT n: LET b-b-2: IF 
p>b-2 THEN LET p=p-2 


^^^^^^^^^^^^^^^^^^^^^^^^^^^H 


^^^L^^^ ^»^B 


8Q15 PRINT il;AT 0.0;aS;aS 


^^^^^^^^^^^^^^^^^^^^^^m 


8930 GOSUB 1000 


^^^^^^^^^^^^^^^^^^^^^m <^^ 


^^^^k ^^^fe^^^^k..M t J^^l 


8940 RETURN 


^^^^y 


r*^BlM 


Para usar a rotina de ordcnatao,, 
marque os pontos correspondentes ao 
infcio e ao fim da operaipao, colocan- 
do uma flecha (T) acima da primeira 


^^^^^^^^^^^^^^^^^^r 


'^■" ^^^^^^^^^1 


Ijnha a ser ordenada e outra abaixo da 


^^^r^^r^^^^^^^K^^^ 


likima. Para iniciar o processo, tecle 


Ww^M^W 


^^^^H 


[CAPS SHIFT] e 4. As flechas serao eli- 


^^^^^1 


minadas durante a ordenagao. 


Hii^F .^^^^r ^^^k. 


^^^H 


Para fazer a operafao de busca, te- 


■^^B^^^^ ita 


-4i^^l 


cle [CAPS SHim e 2; a palavra a ser 


^^^^^^^^^k-' -^ 


^ "^^H 


procurada deve ser digitada conforme 


^^^^^^H^^^^^^^^^^B 


^f^^^i 


requisitado. A busca come^ard imedia- 


^^^^ 


*J 


tamente. Assim que o computador en- 
contrai a primeira ocorr§ncia, o cur- 
sor aparecera sob ela. Se quiser con- 
tinuar a procura mais adiante, pressio- 


^r^ 


9^^^^^^1 


ne [CAPS SHIFT] e 3. Para aJterar a pa- 
lavra, tecle [CAPS SHIFT] e 2. 


1 


i^^^^^^l 


Tecle 6 para entrar na rotina de im- 
pressao da linha 4000. Isso fara o texto 
ser imprcsso de acordo com o que foi 
definido na rotina da linha lOO, ou se- 
ja, 32 caracteres por linha e 32 linhas 


^Br' 


^^E^^^^^^^^l 


por pdgina. Se quiser alterar esses valo- 


^^^1. 


'^^^^^^^^^^^^^^1 


res, tecSe 7 e nao 6. 


^^K 


_^^^^^^^^^^^H 


Na formatacao do texto. coloque o 


^^HHHBHH^Hlii 


gmmnigj^^^^^^^g 


sinal adequado, para que a linha seja 
irapressa do modo desejado. sinal 
" # " indica que a linha deve ser posi- 






LET A-J 


URN 


cionada junto a margem direita do tex- 


4Blt) IF cc>-l THEN GOTO 1B2*i 


8500 REM ortJenacao 


to. O "&" provoca uma mudanga de li- 


4820 IF aS{cc:5<>CHRS 32 THKN L 


8506 PRINT 11; AT , ; aS ; s$ 


nha e inicia a impressao na margem es- 


ET cc'cc+l: LET x-x+1 : flOTO 481 


B5,10 LET 33=4 


querda. O "$" faz com que haja um 





8520 TF tS(aB,U=""" THEN GOTO 


avan^o de duas linhas e nao de uma ape- 


4825 IF x>=U THEN LPRtNT CHRS 


8 55 


nas O *'*" centraliza o texto. 


13; PRINT FLASH i;"E;RRO NO FO 


8530 LET aa = B5)+l: TF 3S = b THEN 


JI4 %4 ^ P ■w' ** ^rf * * 1- + ^^." ■* ■ "T* ** »***■•■ ^^ w 


ftMATO - PALAURA HUITO GRANDE": 


PRINT tllAT 0,0; BR7GHT l;"Lini 


kM 


SOUND 2,10: BETIIRN 


ites nao (iefinidoB": PAUSE lOO: 


48^0 IF sl>=x THEN GOTO 4112 


PRINT 11: AT O,0ifl5;aS: RETURN 




4850 LPH1NT CHHS J I ; ; l-ET d-0 


8510 GOTO B520 


3000 CLSrPRINT@7,BLS; "IMPRESSAO 


4900 FOR m=l T() tt. : LPBINT CHRS 


8550 LET 3fi=ag+l 


" iBLS 


.12;: NEXT m ; GOTO 4050 


B560 TF tS(3e,l)="*" THEN GOTO 


JOIO IF TL<2 THEN 3050 


SOOO REM procvjra 


B600 


3020 PaiNT"DA (M) EMORIA OU DE ( 


8002 IF 7S="" THEN PRINT «liAT 


8570 LET ae-Sft+1 : IF se=b THEN 


A)RQUIUO ?" 


0,0; BRIGHT Is"Mao foi definicJ 


PRINT #] :AT 0.0 i BRIGHT l;"Soiii 


3030 HS-INKE¥S:IF RSO'M' AND H 


a a paJavra alvo": PAUSE 100: P 


Rfite um limite foi definido": P 


SO'-A" THEN 3030 


RTNT #1:AT t).0;n3iS$: RETURN 


AtlSE lOOr PRINT 1 1 ; AT , i bS ; aS 


3040 IF R$="M" THEN 3060 


S005 PRINT #1;AT 0,0;aS;a$: IF 


: RETURN 


3050 GOSUB 4500 


p=b-2 THEN LET p=4 

BOlO FOR n=l TO 3-1-LEN jS 


85 80 GOTO B56Q 


3060 IF TL=1 THEN PRINT (nao ha 


8600 IF ga=He-l OB B3=aR-2 THEN 


artjuivo" :pyS='"T20O3EDCA" : GOTO 


8020 IF tSCp.n TO n+LEN z$-l)=z 


GOTO 8<)on 


3570 


S THEN LET n-33-LEN zS : NEXT n 


8610 PRINT #1;AT 0,0: BRIGHT li 


3070 KF=0: PRINT "QUER USAH MASC 


• GOTO 8 05 


"Ordenando" 


ARA (S/N) ?" 


fl030 NEXT n 


8620 FOB i=BS+l TO se-l 


3080 HS-INKEyS:IF HSO'S" AND R 


8040 LET p=p+l: IF p=b-2 THEN 


86.T0 LET k=i 


$<>"N" THEN 3080 


LET p=p-] : GOTO 8050 
fl04 5 {jOTO 8010 


8640 FOB j=i+l TO se-1 


3090 IF HS="N" THEN 3150 


B650 IF r.5(j)<t$(k) THEN LET k 


3100 PRINT: PRINT "CARREGA BLOCOS 


■'* 8050 LKT p = p+l : OOSUB 1000: RET 


-J 


UABIAVEIS (T)ECLADO OU 





CA)RQUIVO?" 

3110 aS-INKEYS:IF HS<>"T" AND R 

$<>"A" THEN 311D 

3120 KF=2:IF aS^"!" THEN KF=1:G 

OTO 3150 

3130 PRINT iLINEINPUT "INTHODUZA 

NOME DO ABQUIUO " ; VBS 
3140 IF LEFTS{VB$, 1)<"A" OR LEF 
TS(UB$. 1)>"Z" THEN 3130 
3150 CLS: PRINT "DESEJA BEPHOGRA 
MAR A IMPRES30RA (S/N) ?" 
3160 RS=INKEYS:IF RS<>"S'* AND R 
SO'N" THEN 3160 
3170 IF R$-"S" GOSUB 55D0 
3180 CLS 

3190 UB=0 :PP=0:AZ=0 :LC=1 :PRINT 
"DESEJA IMPRIMIH NA TELA (S/N)? 
":PRINT"enter RETORNA AO MENU P 
RINCIPAL" 

3200 RS-INKEYS:IF R$<>"S" AND R 
$<>'N" AND R3<>CH£IS(13) THEN 32 
OO 

3210 IF RS-CHRSUJ) THEN RETURN 
3220 IF KF-0 THEN 3240 
3230 IF DL-1 AND KF-2 THEN FHEA 
D UBS, FROM 0;DV; FREAD UBS;DV E 
LSE IF K=2 THEN OPEN -I".#-l,yB 
S: IMPUTI-1 ,DV,DV 

3240 P = 0:CPS = "" :IF RS=="N" THEN 
P=-2:GPS = STRINGS (GP, 32) 
3250 FOR K'l TO TL-1 ^F LEFT$(T 
XS(K), !)'"♦" AND LEN{TXSCK) )-!> 
AZ THEN AZ=LEN(TXS CK) ) 
3260 NEXT: IF AZ>TW THEN PRlNT'e 
rro-endereco muito 1 ongo" : PyS=" 
T402AB" :GOTO 3570 
3270 K=1:PHIKT*P.LFS;GPS; :AS-'" 
:IF A2>0 THEN AZ$=STHINGS <GP+TW 
-AZ,32) 

3280 TT$=TXSCK) 

3290 IF TTS-'" THEN PRINT IP.CH 
RS(13) ;GPS; :PP-0 ; LC=LC+1 : GOSUB 
359C:GOTO 3520 
3300 0P = INSTH(TT$, ■')[") :IF BP=0 

OR KF=0 THEN 3390 
3310 IF KF-1 THEN 3370 
3320 IF DL=1 THEN 3360 
3330 IF EOF(-l) THEN 3350 
3340 INPUTI-l.RPS :GOTO 3380 
3350 PHINT"erro-f al ta de dadoa 
no arquivo" ;PlfS-*L20O5DL4O2D" :G 
OTO 3570 
3360 IF EOF(VB$} THEN 3350 ELSE 

FLREAD UB$;aP$:G0TO 3380 
3370 BL-BL+1 : PRINT: PRINT "INTRO 
DUZA BLOCO UARIAVEL" ;BL; '?" ; r LI 
NEINPUT RPS 

3380 TT3-LEFTS(TT$,BP-13+RP$+MI 
DSCTT$,BP+2) :GOT0 3300 
3390 ON INSTB ( "i.S*l ", LEFTS (TTS 
,1)) GOTO 3460,3470.3490,3510 
3400 IF PP+LEN[TTS) C=TW THEN PR 
INTIP.TTSi :PP=PP+LEN(TTSJ :GOTO 
3520 

3410 TAS=LEFTS (TTS.TW-PPJ 
3420 IF INSTH{TT$," " ) >TW THEN 
PRINT "erro-palavra muito grand 
e na",TTS:PYS="T10O2CB' :GOTO 35 
70 

3430 IF BIGHTS (TAS, !)»■* " THEN 
3450 

3440 IF LEN(TA$J>0 THEN TAS-LEF 
T3(TA5,LEN(TAS)-1) :GOTO 3430 



3450 PHINTtP,TA$;CHRS(13) ;GP$; : 

PP=0 :LC-LC+1 :GOSUB 3590:TTS-MID 

S(TTS,LEN(TAS)+1) :IF TTSO"" TH 

EN BP=1:G0T0 3400 ELSE 3520 

3460 PBINTfP.CHRS (13) ;GPS: : PP»0 

:LC=LC+1:G0SUB 3590 :TTS-MIDS (TT 

S, 2) :G0T0 3 300 

3470 TT3-MID$ CTT$, 2) :PRINTIP,CH 

R$ (13) ;GPS;STHINGS CINT(TH/4) ,32 

) ; :PP-INT(TW/4) 

3480 LC-LC+1 : GOSUB 3590:GOTO 33 

00 

3490 TTS'MIDStTTS. 2} : IF LENtTTS 

)>TW THEN PRINT'erro-impoasivel 

central izar" ;TTS r Py$-'T103C' :G 
OTO 35 20 

3500 PKINT#P,CHRS(13) ;GPS;STRIN 
GSnNT( (TW-LEN(TTS) )/2) ,32) ; TTS 
;CHR3(13) iGPS; : PP-0 : LC-LC+1 : GOS 
UB 3590:GOTO 3520 
3510 PRINT#P,CHRSC13) :AZS;MIDS( 
TTS, 2) ; :PP-0:LC-LC+1 :GOSUB 3590 
3520 K-K+1:IF P-0 THEN FOR Z-1 
TO 500: NEXT 
3530 IF K<TL THEN 3280 
3540 IF P=-2 THEN PRINT *P,LFS: 
LFS ELSE PRINTiPRINT 
3550 IF K-1 THEN CLOSE #-1 ELSE 

IF KF-2 THEN CLOSE 
3550 IF P=0 THEN 3190 ELSE HETU 
RN 

35 70 FOB Z=l TO 10 : PLAY Plfa:NEX 
T:IF KF-1 THEN CLOSEf-l ELS IF 
KF-2 THEN CLOSE 
3580 RETURN 

3590 IF LOTH THEN PRINT IP, LFS 
i LFS: GPS; :LC-1 
3600 RETURN 
5070 L-CP:PRINT §384 , " INTRODUZA 

PALAUHA PROCUHADA" 
50BO LINEINPUT TGS:IF TGS""' TH 
EN 5070 

5090 PRINT §500, 'procurando'*;BL 
S: 

5100 TF L-TL THEN CP-TLtCLS : COS 
UB 2090: RETURN 

5110 IF INSTRCTXS (L) .TGS)-0 THE 
N L-L+1:G0T0 5100 
5120 CP-L+1:CLS:G0SUB 2090:RETU 
RN 

5130 IF SS>SE THEN TT-SS: SS-SE 
: SE-TT 
5140 SE-SE-1 
5150 PRINTe500,"ordenaneSe" iBLS; 

5160 FOB I-SS TO SE-1 

5170 K-I 

5180 FOR J-I+1 TO SE 

5190 IF TX$(J)<TX3{K) THEN K-J 

5200 NEXT: IF lOK THEN TTS-TXS ( 

K> :TXS(K)-TXSCI) :TX$(I)-TTa 

5210 NEXT: CLS rOOSUB 2'090: RETURN 

Para fazer funcionar a rotina de or- 
denacao, entre no mode editor e leve o 
marcador *'>" para um dos extremes 
do bloco a ser ordenado. Entao, tecle 
"@". Em seguida, mova o marcador, 
levando-o para o outro extremo, e tecle 
"@" novamente. Essa opera^ao inicia 
automaticamente a ordena(;ao. 

A funi;:ao de procura de palavras 6 
ativa, dentro do modo editor, quando 



se pressiona a tecia P. Voce responde 
quai a palavra a ser procurada por in- 
termedio da mensagem mosirada na 
^rea de trabalho. Pressione a tecla [RE- 
TURN] para dar inicio k busca. Quan- 
do a palavra desejada for enconirada, 
marcador serd colocado logo abaixo 
da linha que a contem. 

Para imprimir um texto ja editado, 
tecle 1 a partir do menu principal. Voce 
terdi entao de responder a varias pergun- 
tas. A primeira delas jndaga se o texto 
a ser impresso esta na mem6ria ou no 
arquivo. Caso voce escoiha imprimir o 
que est^ na mem6ria e nao haja nada 
ai, um sinal sonoro sera ativado e uma 
mensagem mostrada na tela do compu- 
tador; o programa voltara entao ao me- 
nu principal. 

Em seguida, sera oferecida a opgao 
de mudar os parametros da impressora. 
Responda com S ou N. Essa rotina tor- 
na possivel a alterafao dos valores pre- 
determinados, que sao os seguintes: 80 
para a largura do formulariq, 60 para 
a largura da linha de texto (deixando 
margens de dez colunas), 66 para o nu- 
mero de linhas total por formuldrio e 60 
para o niimero de linhas de texto (dei- 
xando tres linhas de espago no topo e 
no fim da pagina). 

Assumidos quando o programa i exe- 
cutado, OS valores indicados acima se- 
rao mantidos at^ que voce os altere. 

A ultima pergunta diz respeito a uma 
copia do texto na tela. Se voce respon- 
der S, o texto ser^ imediatamente colo- 
cado na tela; um N se encarrega de en- 
vii-lo para a impressora. 

Os sinais empregados para formata- 
CSo do texto sao os mesmos que apare- 
cem no programa do jd citado anigo da 
pagina 17. O sustenido ('* #") faz com 
que a linha seja levada para a margem 
direita, enquanto o cifrao ("S") provo- 
ca um avan^o de uma linha e um recuo 
do texto subseqiiente. 

O ampersand ("&") determma um 
avan^o de linha, fazendo com que o tex- 
to a seguir seja impresso no inkio da li- 
nha abaixo (sem recuo). O asterisco 
("*") centraliza a linha de texto. 

Para inserir blocos de texto varidveis 
dentro do texto principal, utilize um par 
de colchetes ("][*') na posi^ao desejada. 
Responda S quando perguntado se de- 
seja recorrer a "mascara de lexto". Os 
blocos podem ser tidos a partir do tecia- 
do ou de um arquivo. Se sua op^ao for 
pelo teclado voce deve digitar cada blo- 
co quando o programa pedir. No caso 
de escolher o arquivo, essa opera^ao se- 
ra feita aotomaticamente — o compu- 
tador lera o texto de um arquivo previa- 
mente preparado para isso (use o pro- 
prio programa). 
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3OO0 CLS:BL$="Iiiipriniir" :GOSUB 2 

20 

3010 IF TL<2 THEN 3050 

3020 PRINT : PRINT! PRINT" Impr line 

texto da [Mlemdna ou [FJita?"; 

3030 B$=INKEyS:IF R$<>"M" AND R 

SO'F" THEN 3030 

3040 IF RS="M" 'THEN 3060 

3050 GOS[)B 4500:CLSrBr.S = "Tmpriin 

ir";GOSUB 220 

3060 IF TL=1 THEN BEEP: LOCATE 9 

,12:PRINT''Nao h.A texto na memOr 

ia!"rFOR 1 = 1 TO ] 000 : NEXT : PETIJR 

N 

3070 KF^O: PRINT :PRINT"Qiier uaar 

ffl^arara? (S/N)"; 
3080 HS-INKE¥S;IF RS<>"S" AND P 
S<>"N" THEN 308 
3090 IF RS="N" THEN 3150 
3100 PRINT :PBINT"Carreoa oa bio 
cos varidveis do [T]ecla 
do ou da [ F jiTa?" ; 
3110 RS=INKE¥S:IF RS<>"T" AND B 
S<>"F" THEN 3110 

3120 KF=2:IF RS="T" THEN KF=]rn 
OTO 3150 

3130 PRINT: LINETNPUT"Nome do ar 
(juivo " ; VH$ 

31'! TF LEFTSCVBS, 1)<"A" OR LEF 
TS(VB$, 1) >"Z" THEN 3130 
3150 PRINT:PRINT"Altera a c.outi 
ouracao da 3 mp 

reasora? CS/N) " ; 



3160 R$=INKEYS:IF RS<>"S" AND H 

S<>"N" THEN 3160 

3170 IF R$=''S" THEN GOSUB 5500 

3ieO CLS:BL5="Inipriinir'' rGOSUB 2 

20 

3190 WB'0:PP-0,-AS = OrLC=l : PRINT: 

PRINT :PRINT"Quer uma demonatrag 

ao na tela? {S/N). " : PRINT"TecU 

<RETyRN> para retornar ao tnenu" 

3200 R$=INKEYS:1F R$<>"S'' AND 8 

$<>"N" AND RS<>CHR5(13) THEN 32 

00 

3210 IF ES-CHR$(13) THEN RETURN 

3220 IF KFOZ THEN 3240 

3230 OPEN VB5 KOB INPUT AS H:I 

NPUT#1,DU,DV- 

3240 P=0:GPS="" :IF RS="N" THEN 

P = -l :GP$ = STRING$(C.P, 32) 

3250 FOR K=l TO TL-]:TF LEFTS(T 

XS(K),1)="I" AND LEN(TXS{K))-1> 

AS THEN AS=LFN{TXS(K) ) 

3 260 NEXT: IF AS>TW THEN PRINT :P 

HINTTABllO) ; "Enderego muito Ion 

Oo!":GOTO 3610 

3270 K=1:AS-"":IFAS>0 THEN AS=S 

TRINGS(GP+TW-AS, 32) 

3280 IF NOT P THEN PR [NT: PRINT: 

PRINT; ELSE LPRINT LFS;GP$; 

3290 TTS=TXS(K) 

3300 IF TTSO"" THEN 3320 ELSE 

IF P THEN LPRINT LIS 1 GPS ELSE P 

RINT 

3310 



PP=0 : LC=LC+1 : GOSUB 3630 rGO 



TO 3S60 



3320 BP=INSTR(TTS," ]['■): IF BP=0 

OR KF=0 THEN 3390 
3330 IF !:F=1 THEN 3370 
3340 IF EOFd) THEN 3360 
3350 INPUTf 1 .BPS :GOTO 3380 
3360 PR1NT:PRINTTAB(3) "Fim de d 
ados para blocoa var iriveia ! " : GO 
TO 3610 

3370 BL-BL + 1 : PRINT : PR INT"B1 or.o 
vandvel" ;BL;"?" ; :LINEINPOT RPS 
3380 TTS-LEFTS(TT$,BP-1)+HPS+«T 
D$ CTTS,BP+2) tGOTO 3 320 
3390 ON INSTB ("S.$*t" .LKFTS (TTS, 
1)) GOTO 3470,3490,3510,3540 
34O0 IF PP+LEN(TT$) C=TW THEN IF 

P THEN LPRINT TTS i CHRS ( 32) ; : PP 
=PP+LEN (TTS) :GOT0 3560 ELSE PHI 
NTTT$;CHRSt32) ; : PP=PP+LEN {ITS) : 
GOTO 3560 

3410 TAS=LEFTS(TTS,TU-PP) 
3420 IF INSTR(TTS," ")>TW THEN 
PRINT :PBINT"Palavra miiito longa 

em: " :PaTNTTTS :GOTO 3610 
3430 IF RIGHT$(TAS, 1)-GHR$C32) 
THEN 3450 

3440 IF LEN(TA3)>0 THEN TAS=LEF 
TSCTAS, LENtTAS)-!) :GOTO 3430 
3450 IF P THEN LPRINT TAS;L1S:G 
PS ; ELSE PHINTTAS 

3460 PP=0 :LC=LC+1: GOSUB 3630 :TT 
$=MIDS(TT$,LEN(TAS)+1) :IF TT$<> 
"" THEN BP-1 :GOTO 3400 ELSE 356 


3470 IF P THEN LPRINT L1S;GPS: 
ELSE PRINT 
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34B0 PP = 0r[.C:=LC=l:GOSlJa 36.10 :TT 

S-MID3 (TTS.Z) :GOTO 3320 

3490 TTS=MTRS fTTS, 2) : IF P THEN 

LPBINT [.l$;fiP$rSTRTNi:;S(TU/4,32) 

; ELSE PRINT; LOCATE TW/4 

3500 PP=rNT(TW/4) : LC=LC+] : GOSUB 

3630: GOTO 3320 
3510 TTS=MTDS(TT5. Z) ; IF LEN(TT3 
) >TW THEN PRINT: PPT NT" Linhfl mui 
to grande para centra] ] zar :": PH 
INTTTS:COTO 3610 

35Z0 S$=STRTNG$ (INT( [TW-IEN (TT$ 
))/2),32):TF P THEM LPRINT Ll$r 
C;P$;S$;TT$;LXS;aP$; ELSE PRINT: 
PRTNTSSiTTS 

3530 PP = 0:LC=LC+l :OOSIJB 3530:GO 
TO 3560 

3540 IF P THEN LPRTNT A$iMIDS(T 
TS,2): ET.SE PHTNTAS iMIRS (TT3 , 2 ) 

3550 PP = :LO = LC+: :GOStIB 3630 

3560 K=K+1:IF P=0 THEN FOR 2=] 

TO 500 iNEXT 

3570 TF K<TL THEN 3290 

3580 IF P THEN r.PBINT LF$;LF$ E 

LSE PRINT: PRINT 

3590 TF KF=2 THEN CL0SE#1 

3600 IF NOT P THEN 3190 ELSE RE 

TURN 

3610 PLAY "03L3CR64L3CR64L8CR64 

L3C":F0R 1=1 TO 2500: NEXT: TF KF 

= 2 THEN CLOSE! 1 

3620 RETURN 

3630 IF LOTH THEN IF P THEN LP 

RINT LFS;LFS;GPS ELSE PRIIMTLFS; 




LF$; 
3640 
5 00 
"Pr 
5010 
5020 
5030 
UB 2 
5 04 
N L = 
5050 
HN 
5060 
5070 
5080 



LC=1 -HETirBN 

L=CPt LOCATE , 19: LINEINPUT 
acuta por : " ;TC$ 

IF TGS="" THtIN 5050 

PRrNr"Procurando . . ," 

IF t, = TL THEN CP=TL : CLS : GOS 
080 rHETURN 

IF TNSTB {TXS (L) ,TOS1-0 THE 
L+1 :GOT0 5030 

CP=L+1 :CLS:GOSUB 2080:RETU 

TF SS>SE THEN SWAP SS.SE 

SE=SE-1 

LOCATE 0, 20 :PBTNT"Ordenand 



5090 FOB I=SS TO SE-1 

5100 K-I 

5110 FOR ,)=I + 1 TO SE 

5120 TF TXS(J)<TXS(K) THEN K=J 

5130 NEXT: IF lOK THEN SWAP TX$ 

(K) ,TX$CI) 

5140 NEXT:C[..S:GOSUB 2080: RETURN 

A rotina de ordenagao e acessada a 
partir do modo editor. Leve o marcador 
para um dos extremos das linhas a se- 
rem ordenadas e tecie CTRL-O, A se- 
guir, transfira o cursor para o outro ex- 
tremo e tecle novamente CTRL-O. A or- 
denagao se iniciara imediaiamente, 

A rotina para a procura de palavras 
tambem e ativada dentro do modo edi- 
tor. Leve o marcador para a posigao a 
partir da qual quer inidar a busca. Te- 
cle CTRL-P e digite a palavra que deve 
ser procurada. Tecle [RETURNI paia 
iniciar a busca. Assim que a expressao 
for encontrada, o marcador sera coio- 
cado abaixo da linha que a conlem. Pa- 
ra continuar procurando outras ocor- 
rencias da mesma palavra, tecle CRTL- 
P; digite [RETURN] apenas quando a 
palavra for solicitada. 

Para acessar a rotina de impressao, 
tecle I a partir do menu principal, Va- 
rias perguntas serao feiias. A primeira 
refere-se & possibilidade do texto a ser 
impresso vir da mem6ria ou de um ar- 
quivo em fita, 

A seguir, voce deve responder se quer 
usar "mascara de texio" ou nao. Essa 
rotina possibilita a insergao de partes 
variaveis no texto principal. Para isso, 
coloca-se pares de colchetes ("][") nas 
posicdes desejadas. Desse modo, quan- 
do o programa encontrar esse sinal no 
texto, ird substitm'-lo per um bloco que 
pode ser carregado do teclado ou de um 
arquivo, Se voce optar por dar entrada 
pelo teclado, deve digitar o texto neces- 
sario toda vcz que for solicitado. Caso 
contrario, a informagao seri lida de um 
arquivo era fita (este devera ter sido pre- 
viamente preparado para isso). 

Antes de iniciar a impressao, e pos- 
si'vel tambem alterar a configuragao da 
impressora. Os valores habituais sao: 80 



para a largura do formuldrio, 60 para 
a largura da linha de texto, 66 para o 
numero total dc linhas por formulario 
e 60 para o niimero de linhas de texto 
por pagina. 

Os sinais para formatar o texto sao 
nossos conhecidos: o asterisco ("**') 
centraliza o texto que o segue; o amper- 
sand ("&") provoca um avanfo de li- 
nha, de maneira que o texto subsequente 
seja iniciado na primeira posigao da li- 
nha seguinte; ja o cifrSo {"$"), alem de 
fazer isso, provoca um recuo no texto; 
finalmente, o sustenido (" #") faz com 
que a linha seja impressa na margem di- 
reita da pagina. 

Quando uma palavra nao couber no 
trecho final de uma linha, deve-se evi- 
tar quebra-Ia, para que ela nao fique di- 
vidida por um espago. O procedimento 
correto, neste caso, e digitar a palavra 
inteira na linha seguinte. 



[£ 



3000 HOME :BLS = "IMPRIMIH" : G 

OSUB 250 

3010 IF TL < 2 THEN 3050 

3020 PRINT : PRINT : PRINT "IM 

PRIME TEXTO DA [K]EMOflIA OU [D] 

ISCO? ": PRINT "TECLE <CR> PAHA 

HETORNAR AO MENU " ; 
3030 GET R$: IF FtS = CHR3 [13 
) THEN RETURN 

3040 IF HS < > "M" AND RS < 
> "D" THEN 3030 

3050 PRINT R$: IF RS = "M" THE 
N 3070 

3060 GOSUB 4500: HOME !BI.5 = " 
IMPHlMIfl" : GOSUB 25Q 
30?0 IF TL = 1 THEN PRINT CH 
RS t7);: UTAB 12: HTAB 8r PRINT 

"NAO HA TEXTO NA MEMORIA!"; FO 
H I = 1 TO 1000: NEXT : PRINT 
CHBS (7) ; : RETURN 

3080 KF = : HTAB 1: VTAB 9: PR 
INT 'QUER USAR HASCARA? " ; 
3090 GET HS: IF R3 < > "S" AN 
D RS < > "N" THEN 3090 
3100 PRINT RS: IF RS = "N" THE 
N 3220 

3110 PRINT : INPUT "QUANTOS BL 
0C03 SERAO U3ADOS? (MAX 20) ";N 
B: IF NB < OR NB > 20 THEN 31 
10 

3120 PRINT ; PRINT "OS BLOCOS 
SERAO CARREGADOS DO": fHINT "[T 
lECLADO OU [D]lSCn? "; 
3130 GET RS: IF RS < > "T" AN 
D RS < > "D" THEN 3130 
3140 PRINT RS-BL ' : KF = 2: 1 
F RS = "T" THEN KF = 1 : GOTO 32 
10 

3150 PRINT ; INPUT "NOME DO AR 
QUIVO MASCARA? " ; WBS 
3160 IF ABC (VBS) < 65 OR AS 
C (VBS) > 90 THEN 3150 
3170 VBS = VBS + ".TXT": PRINT 
: PRINT D$: "OPEN" ; VBS; " ,S" ; LI ; " 
,D";L2 6 



3180 PRINT DS;"READ";VB3: INPU 

T DV.DV 

3190 IF DV < NB THEN PRINT D3 

INCLOSE" :EH - 2: GOTO 3580 

3200 FOB I « 1 TO NB: INPUT HP 

StI): NEXT : PRINT DS:'CLOSE": 

GOTO 32 20 

3210 PRINT : PRINT : FOB 1=1 

TO NB: PRINT "BtOCO VARIAVEL " 
ill -->■';: INPUT RPSd): NEXT 
3220 HOME : GOSUB 250: VTAB 5; 

PRINT "QUER MUDAR A CONFIGURAC 
AO DA IMPHESSORA? " : 
3230 GET RS; IF RS < > "S" AN 
D RS < > "N" THEN 3230 
324.0 PRINT RS : IF RS - "S" THE 
N GOSUB 5500: HOME : BLS - "IMP 
RIMia" : GOSUB 250 
3250 UB - 0:PP - : AS = ; LC - 
1: PRINT : PRINT : PRINT "QUER 
UMADEHONSTRACAO NA TELA? "i 
3260 GET RS; IF RS < > "S" AN 
D RS < > "N" THEN 3260 
3270 PRINT HS:P - 0:G1 - 0: IF 

RS - "N" THEN P - 1:G1 - GP 
3200 FOR K " 1 TO TL - 1: IF 
LEFTS CTXS{K).l) - "#" AND LEN 

(TXa(K)) - 1 > AS THEN AS - L 
EN (TX$[K)) 
3290 NEXT ; IF AS > TW THEN ER 

= 1: GOTO 3580 
3300 K = 1: PRINT : PRINT DS!"? 
Rf;P: PRINT LFS; SPC( Gl)i:AS 
- "": IF AS > THEN Al - GP + 
TW - AS 

3310 TTS • TXS(K) 
3320 IF TTS « " " THEN PRINT 

CHRS (13) : SPC( Gl) i :PP = : LC 

- LC + 1: GOSUB 3640: GOTO 354 


3330 IF KF = THEN 3380 
3340 FOR I = 1 TO LEN (TTS) " 

1: IF MID$ (TTS. I, 2) < > "H 
' THEN NEXT : BP - 0: GOTO 3380 
3350 BP = I :BL - BL + 1 
3360 IF BP = 1 THEN TTS = HPS ( 
BL) + MIDS tTTS.3} :. GOTO 3380 
3370 TTS = LEFTS (TT3.BP - 1) 
+ RPSOL) + MIDS (TTS.BP + 2): 

GOTO 3 340 
3380 TT - ASC (TTS) : IF TT = 3 
5 OR TT •= 36 OR TT = 3B OR TT = 

42 THEN 3460 
3390 IF PP + LEN (TTS) ■: = T 
M THEN PRINT TTS; CHRS (32!i:P 
P = PP + LEN (TTS) + 1: GOTO 3 
540 

3400 TAS = LEFTS (TTS.TU - PP) 
3410 IF RIGHTS (TAS.l) = " " 
THEN 3440 

3420 IF LEN (TAS) > 1 THEN TA 
S - LEFTS (TAS. LEN (TAS) - 1) 
: GOTO 3410 
34 30 TAS = "" 

3440 PRINT TAS; CHRS (13) i SPC 
( G1);:PP = 0:LC = LC + 1: GOSU 
B 3e40:TTS - MIDS (TTS, LEN (T 
AS) + I) : IF TTS =- "" THEN 3540 
3450 GOTO 3390 

3460 FOR I - 1 TO 4: IF MIDS 
("B.3*i" ,1 ,1) < > LEFTS (TTS.l 
) THEN NEXT 
?0 3470 ON I GOTO 3480,3490.3510, 



3530 

3480 PRINT CHE3 <13) i SPC( Gl 
) i :PP - ;LC - LC + 1: GOSUB 36 
40:TT$ - MIDS (TTS, 2): GOTO 33 
30 

3490 TTS - MIDS (TTS, 2): PRINT 
CHR3 (13) : SPC { Gl) ; SPC ( IN 
T (TW / 4))::PP - INT (TW / 4) 
3500 LC - LC + 1: GOSUB 3640: G 
OTO 33 30 

3510 TTS - MIDS (TTS, 2); IF L 
EN (TT$) > TW THEN EH = 3 : GOTO 

3580 
3520 PRINT CHRS (13); SPC ( Gl 
); SPC( INT { CTW - LEN (TTS)) 

/ 2)))TT$i CHRS (13); SPC( Gl) 
;:PP - 0:LC - LC + 1: GOSUB 364 
0; GOTO 3540 

3530 PRINT CHRS (13): SPC ( Al 
); MIDS (TTS,2)!i:PP - : LC - LC 

+ 1: GOSUB 3640: GOTO 3540 
3540 K-K+1: IFP-0 THEN 
FOR Z - 1 TO 1000: NEXT 
3550 IF K < TL THEN 3310 
3560 IF P - 1 THEN PRINT LFSi 
LFS: PRINT DS;"PR»0": RETURN 
3570 IF P - THEN PRINT : PR 
INT : GOTO 3250 

3560 PRINT : PRINT DS("PH#0"; 
PRINT CHRS (7) ; 
3590 HOME ; VTAB 12: HTAB 10; 
ON EH GOTO 3600,3610,3620 
3600 PRINT "ENDERECO MUITO LON 
GOl": GOTO 3630 

3610 PRINT "NAO HA BLOCOS SUFI 
CIENTES": PRINT TAB ( 12) "NO AR 
QUIVO ESCOLHIDO!": GOTO 3630 
3620 PRINT "IMPOSSIUEL CENTRAL 
IZAR 1 " 
3630 " FOR I - 1 TO 2500: NEXT : 

PRINT CHRS (7) i : RETURN 
3640 IF LC > TH THEN PRINT LF 
SiLFSi 3PC( Gl) ! :LC - 1 
3650 RETURN 

5200 L = CP:TGS " "": VTAB 20: 
HTAB 1: PRINT "PROCURA POR: "; 
5210 GET TCS: IF TCS < > CHR 
5 (13) THEN TGS = TGS + TCS : PR 
INT TCS ; : GOTO 5210 
5220 IF TGS = "" THEN 5270 
5230 HTAB 1: PRINT "PROCURANDO 
...';: CALL - 958 
5240 IF L = TL THEN CP - TL : G 
OTO 5270 

5250 FOR I » 1 TO LEN (TXS(L) 
) - I: IF MIDS (TXS(L) .1. LEN 
(TGS)) < > TGS THEN NEXT :L ■= 

L + 1: GOTO 5240 
5260 CP - L + 1 

5270 HOME : GOSUB 2090: RETURN 
5300 IF .SS > SE THEN TT = SS:S 
S = SE:SE = TT 
5310 SE - SE - 1 

5320 HTAB 1: WTAB ZO : PRINT "0 
RDENANDO. . . " 

5330 FOR I =■ SS TO SE - 1 
5340 K - I 

5350 FOB J = I + 1 TO SE 
5360 IF TXS(J) < TXS(K) THEN K 

- J 
5370 NEXT : IF I < > K THEN T 
T3 =■ TXS(K) :TXSCK) = TXSdJrTXS 

(I) - TTS 



5380 NEXT 
RETURN 



HOME 



GOSUB 2090 



Para acessar as rotinas de ordena^ao 
e busca de palavras, voce deve esiar no 
modo editor. 

Se voce quiser ordenar urn bloco de 
dados, leve o marcador ">" para um 
dos extremos do bloco e tecle CTRL-O. 
Em seguida, mova-o para o outro extre- 
mo e tecle novamente CTRL-O- A or- 
denacao come^ara imediatamente. 

Quando for precise procurar uma de- 
terminada palavra dentro do texto, le- 
ve marcador ao ponto escolhido. A se- 
guir tecle CTRL-P e digite a palavra de- 
sejada, respondendo h soiicita^ao. Te- 
cle [CR] e a busca tera inicio, Quando 
a palavra for encontrada, o marcador 
serS posicionado logo abaixo da linha 
que a cont^m. Para continuar procuran- 
do novas ocorrencias dessa palavra, re- 
pita toda a operafao. 

Ao mesmo tempo, para imprimir o 
texto, tecie 1 a partir do menu principal. 
Em seguida, responda ^s perguntas que 
Ihe sao apreseniadas. 

A opfio usar "mdscara de texto" 
permite acrescentar ao texto principal 
blocos vari^veis, com os quais podem 
ser produzidas, por exemplo, cartas in- 
dividualizadas. Se voce fizer essa op?ao, 
deixe nos locals apropriados do texto 
um sinal ")!" para cada bloco. Esses si- 
nais serao substituidos peio texto ade- 
quado no momento da impressao. 

O texto pode ser digitado a partir do 
tcclado, ou lido de um arquivo era dis- 
co. No caso do teclado, o programa so- 
licitarA que voce digite a frase a raedida 
que OS sinais sejam encontrados no tex- 
to. Se OS blocos forem carregados do 
disco, o computador ler^ um arquivo se- 
qiiencial que voce devera ter criado com 
OS dados necess^rios, usando o proprio 
programa (se voce quiser aproveitar um 
arquivo ja existente, deve acrescentar 
".TXT" ao nome dele). Guide para que 
OS dados estejam na ordem correta e pa- 
ra que sejam suficientes para todas as 
solicitagoes, 

O texto pode ser formatado com os 
sinais habituais. (Eles devem sempre ser 
colocados na primeira posi?ao da linha.) 
O asterisco ("*") centraliza o conteii- 
do da linha; o ampersand ("&") provo- 
ca um avango de linha da impressora, 
colocando o texto subsequente a partir 
do infcio da proxima linha; o cifrao 
('*$") tem a mesma fungao, com a di- 
ferenf a de que provoca um recuo no co- 
medo do texto; o sustenido ("#") faz 
as linhas que o contcm serem colocadas 
A margem direita do texto. 

Evite inserir blocos variiveis nas li- 
nhas em que aparece o sustenido. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMAQAO BASIC 

Sejam quais forem os seus dados, serci mais fScil entend§-los 
se voce organiz^-los em gr^ficos de barras e segmentos. 

PROGRAMAQAO BASIC 

Teclas program^veis: um recurso fant^stico oferecido pelo 
MSX para dar aos programas um acabamento impec6vel. 

PROGRAMACAO BASIC 

O desenho em tres dimensoes. Proje96es isom^tricas. Mohtagem 
de um cubo com grades. Mudanga de coordenadas. 
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